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1,0 ABSTRACT 

THE RKil/RK05 DYNAMIC TEST AIMS AT 

1^ DEMONSTRATING THE rLECTROMECHANICAL INTREGRITY 
or THE DRIVE® 

2^ CHECKING THE LINEAR POSITIONER CONTROL AND SPEED 
CONTROL 

3« VERIFYING THE INTREGITY OF THE READ/WRITE LOGIC 
4« PROVIDING A TIMER FOR THE SEEK FUNCTION^ 

THIS IS A TEST ONE LEVEL HIGHER THAN THE BASIC RKll 
LOGIC TESTS^ 



2«0 REQUIREMENTS 

2«1 EQUIPMENT 

A, PDPll WITH CONSOLE TELETYPE, 

B« 8K OF MEMORY 

C« RKll OR RKVU CONTROLLER 

1»8 RK05 OR RKOSF DRIVES (DRIVE TYPES MAY BE MIXED) 

2^2 PRELIMINARY PROGRAMS 

RKll LOGIC TEST I (MAINDEC^'l 1««DZRKJ3 
RKll LOGIC TEST II ( MAINDEC*! l^^DZRKK) 

2«3 EXECUTION TIME 

ERROR FREE FIRST PASS ON PDPil/20 !^ITH CORE MEMORY 
TAKES APPROXIMATELY 5 MINUTES (WITHOUT THE SEEK 
TIMER AND GRAPH^ ADDITIONAL 3«5 MINUTES FOR THESE) ^ 
LESS FOR FASTER MACHINES OR MEMORIES,, 



3^0 STARTING ADDRESS 

200 FOR ANY NORMAL MODE OF OPERATION^ ALL SWITCHESS 
DOWN 

210 FOR FUNCTION SELECTING PROGRAM (CONVERSATIONAL 
MODE) g 



4^0 PROGRAM CONTROL MODES & OPERATOR ACTION 



PAPER TAPE LOADING 
RKDP DUMP MODE 
RKDP CHAIN MODE 
ACTil 
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4,1 PAPEK fAPE LOADING 

4.1.1 LOAD PROGRAM INTO l^gMORY USING STANDIHD PROCEDURE 

4.1.2 MAKE SUBS THAT THE DRIVES TO BE CHECKED ABE LOADED 
MITH DISKS AND ARE IN '^RUN^ ^'WRT ENABLE*' THEM^ 
CHECK THAT PROT^ LIGHT QM THESE DRIVES IS OFF* 
PUT DRIVES THAT ARE NOT TO BE TESTED 01*1 aOAD% 

4,1 i3 LOAD ADDRESS 200 

4,i,4 SET SWITCHES IF DESIRED CSEE SEC 6^05 

PRESS START, 

4,1 t§ THE PROGRAM IDENTIFIES ITSELF 

RKIS DYNAMIC TEST 
MAIWDEC^il^DZRKL^E 

THEN IT PROCEEDS TO FIND WHICH DRIVES ARE PRESENT 

AND PRIf^TS OPT THE DRIVES FOUMD® IF AN RK««05F 

IS DETECTED^ AN F IS APPENDED TO THE DRIVE WUMBERl 



DRIVES PRESENT 


1 

AFTER TYPING OUT THE DRIVE NUMBER THAT IS GOING TO 
BE TESTED^ EXECUTION OF THE TESTS START, 

AFTER ALL THE TESTS HAVE BEEN EXECUTED ON OME DRIVE 
THSf ARE EXECUTED ON THE NEXT DRIVE^ IF PRESENT^ 
THIS IS REPEATED TILL ALL DRIVES ARE TESTED, 

AT THE Em Of h PASS THE FOLLOWING IS TYPED OUTi 

END PASS X XiiOa#a«t«s.f 

COi^TROL IS TRANSFERRED BACK TO THE BEGINNING OF THE 
PROGRAM AND RE^^EXECUTION BEGINS, 



4,2 RKDP DUMP MODE 

4,2sl THE PROGRAM IS LOADED BY THE RKDP MONITOR^ 

4,2,2 SET SAs200|, SELECT ANY SWITCHES YOU WANT AND PRESS 
START, 



4,2.3 



THE PROGRAM IDENTIFIES ITSELF AND PRINTS OUTi 
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^TO TEST DHIVE ^M* HALT PPOGRAM^ REMOVE EKDP PICK AND REPI^ACE IT 
WITH k WORK PACKf CLEAR LOCAflON 40f IHD RESTART PROGRA^^ 



4,3 RKDP CHAIN MODE 

THE PROGRAM IS CHAIN LOADED FROM RKDP PACK ON DRIVE 

AFTER IDENTIFYING ITSELF, THE FOLLOWING MESSAGE 
IPPEARSI 

^DRIVE not TESTED^ 

DRIVE MILL NOT BE TESTED SIMCE THE RKDP PACK IS ON 

THAT DRIVEt 



4,4 ACTll MODE 

THE PROGRAM IS LOADED BY THE ACTll MQWITOR^ AFTER 
IDENTIFYING ITSELF^ ASCERTAINS THE NUMBER OF DRIVES 
PRESENT AND PROCEEDS TO TEST EACH OF THEM AS BEFORE « 



5,0 DRIVE SELECTIOW 

IF AMY PARTICULAR DRIVE IS TO BE SELECTED FOR 
TESTIMGf PUT THAT DRIVE ON ^RUN% ^WRITE ENABLE^, 
PUT THE REST OF THE DRIVES OM ^LOAD% ^WRITE LOCK^, 
THEN START AS USUAL ^ 



6^0 SWITCH OPTIONS 

IF THE PROGRAM IS BEING RUi ON A SWITCHLESS PROCESSOR il^E^ AN 11/34) 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
l*JOT PRESEI^T AND WILL USE A ^SOFTWARE^ SI^ITCH REGISTER^ THE 
^SOFTWARE^ SI^ITCH REGISTER IS LOCATED AT LOCATION i76 (8}® THE 
SETTINGS or THE ^SOFTWARE* SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A ^CONTROL G\ THE PROGRAM fi^ILL 
REC0GWI2E THE ^CONTROL G^ WHEMEVER THE PROGRAM ENTERS 
THE SCOPE ROUTINE OR BEGINS A NEW TEST^ THE 

^SOFTWARE^ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH EWTRY ROUTINEl 



^SWR ^ NNNNNN NEW 

EACH TIME SWITCH SETTING ARE ENTERED^ THE ENTIRE SWITCH REGISTER 
IMAGE MUST BE ENTERED^ LEADING EEROS ARE NOT REQUIRED^^ ^RUBOUT^ AND 
^CO^TROL U^ FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRf^^ 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS^ THE ^SOFTWARE* SWITCH 
REGISTER MAY BE USED^ IF THE PROGRAM FINDS ALL 16 SWITCHES IN THE 
^UP^ POSITION^ ALL SWITCH REGISTER REFERENCES WILL BE TO THE 
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^aOFTWAHE^ REGISTER AI^D THE PBOCEOUPES DESCRIBED ABOVE MUST 
BE FOLLOI^ED^ 



S¥<tQ>m% 
SW<09>^1 



HALT ON ERROR 

LOOP ON TEST 

INHIBIT ERHOR PRINTOUTS 

CYCLE ON ERROR TO THE PREVIOUS 

^SCOPE^ STATEMENT 

DUMP ALL RKll REGISTERS ON ERROR 

RIHG BELL ON ERROR 

LOOP on SPECIFIC ERROR 

LOOP on TEST INDICATED BY USER (SEE 

SECg 6.8) 

T¥PE SEEK TIMER 

TYPE THE GRAPHS 

PRINT THE COMPLETE GRAPH 



SW<03>s:l i§ TERMINATE FUMCTION SELECTED BY USER 
SW<02>si '^^^ DRIVE AFTER MAXIMUf^ 

^ ALLOWABLE NUHBER Of ERRORS OCCUR 
SW<00>S5i I ASK FOR PATTERM TO BE WRITTEW OR 

I^RITE CHECKED CFUNCTIOW SELECTION 

PROGRAM) 



6^1 SW<15> 

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR^ AFTER 
TYPING OUT THE ERROR MESSAGE AND PERTIWENT 
INFORMATION g PRESSING "CONTIWUE^ RESTORES NORMAL 
OPERATION OF THE PROGRAM, 



6.2 SW<14> 

THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEING 
EXECUTED WHEN THE SWITCH IS PUT ON, THIS SWITCH IS 
USED MORTALLY ALONG WITH SW 15^ 



6,3 SW<13> 

THIS SWITCH INHIBITS ALL ERROR MESSAGES^ NORf^ALLY 
USED WHEN LOOPING ON TEST (SW 14) OP LOOOPING ON 
ERROR CSW 93 ® 



THIS SWITCH ALLOWS THE PROGRAM TO CYCLE FROM THE 
POINT OF ERROR TO THE PREVIOUS SCOPE STATEMENT, 
NOTE THAT IN DOING SO hnf INITIALISATION BEING DONE 
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hT THE BEGINMING OF THE SUBTEST WILL Bt DONE AGAIN 
AND AGAIN 9 SEE SEC ^ 6^7 FOR A DirFERENT KIHD OF 
SCOPE LOOP^ 



6,S SM<i|> 

THIS SWITCH ALLOWS DUMPING OF ALL RKil HEGISTERS ON 
EI^COUMTERIMG AN ERRORg 

6^6 SW<10> 

RINGS A BELL OM ERROR^ USEFUL WHEN ERROR TYPEOUT IS 
INHIBITED, 

6^7 SW<09> 



THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE 
LOOPg NOTE THAT UNLIKE SW12 THE IMITIALIEATIOM OF 
PARAMETERS AT THE BEGINNING OF THE SUBTEST MAY NOT 
BE DONE in THIS CASE« THIS SWITCH IS HELPFUL WHEN A 
PARTICULAR PART OF A SUBTEST IS BEING REPEATED USING 
DIFFERENT PARAMETERS AND YOU WANT TO SCOPE ON THE 
PARAMETER IN ERRORg, CEXAMPLEl RKDA IS BEING WRITTEN 
AND READ BACK WITH COUNT PATTERNS FRO^^ 1 TO 177777, 
PATTERN 56% IS GIVING ERROR^, YOU MIGHT NOT WANT TO 
GO THROUGH THE 560 PATTERNS BEFORE HITTING ERROR ON 
THE S6iTH PATTERN^ IN THIS CASE SW 9 WILL GIVE YOU 
A SCOPE LOOP ON THE 561TH PATTERN ONLY^) 



6.8 SW<08> 

THIS SWITCH IS USED TO SELECT A PARTICULAR TEST FOR 
EXECUTION^, WHEN THE PROGRAM IS STARTED (200) WITH 
THIS SWITCH SET^ THE FOLLOWING MESSAGE APEARSi 

OCTAL TESTII 

THE USER SHOULD REPLY WITH THE TEST NUMBER . (OCTAL) 
HE WANTS TO SELECT^ FOLLOWED BY CARRIAGE RETURN^ 



THE SELECTED TEST IS EXECUTED AGAIN AND AGAIW^ TO 
GET OUT OF THIS LOOP^ PUT SW 8 BACK TO 0^ THIS WILL 
RESUME NORMAL OPERATION OF THE PROGRAM^ NOTE THAT 
BEFORE TEST 4 CAN BE EXECUTED TEST 2 SHOULD HAVE 
BEEN DONE AMD TEST 6 SHOULD HAVE BEEN DONE BEFORE 
TEST 7. 



6,9 



SW<OS> 
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THIS SI^ITCH WHEN SET MIKES THE PBOmhH TYPE THE SEEK 

TIMlRg THIS SWITCH Ckn BE SET OB RESET BEFORE OH DURING THE 

SEEK TIHEU EXECUTlO^li AND EVEN WHILE THE TYPEOUT IS 

OCCURING^ 



sao SW<OS> 

THIS SWITCH MAKES THE PROGRAM TYPE THE GRAPHS^ IF 
RESET BEFORE THE GRAPH^PLOTTING ROUTINE IS ENTEREDi 
THE GRAPHS WILL BE SKIPPED ENTIRELY* IT CAN BE RESET 
EVEN AFTER SOME OF THE POINTS HAVE BEEM PLOTTEDi TO 
SKIP PLOTTING REST OF THE POINTS® 



THIS SWITCH IS USED TO SELECT THE COMPLETE GRAPH 
OUTPUT CSEEK TIMES OF ALL CYLINDERS ARE PLOTTED) 
FORMALLY WHEI^ THIS SV^ITCH IS NOT SET# THE SMALL 
GRAPH CONLY SELECTED CYLINDERS PLOTTED) IS PRINTED 
OUT, 



6,12 SW<03> 

THIS SWITCH WHEN SET TERMINATES THE EXECUTION OF THE 
FUNCTION SELECTED BY THE USER CSA^2105g A NEW 
FUNCTION MAY BE INITIATED HQ^ ^ IF YOU WANT TO KEEP 
ON LOOPING ON THE SAME FUNCTION, PUT SH 3 DOWN^ SEE 
SECt 9,0, 



6.13 SW<02> 

THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE FROW 
THE SELECTION LIST AND TESTINGf AFTER MAXIMUM 
ALLOWABLE ERROR COUNT (TOTAL NUMBER OF ERRORS) Ofy 
THAT DRIVE IS EXCEEDED^ THE MAXIMUM ALLOWABLE ERROR 
COUNT IS 6# AFTER 6 ERRORS HAVE OCCURED THE DRIVE IS 
DROPPED AND A MESSAGE C DRIVE # XXXXX DROPPED) IS 
PRINTED, 

6.14 SW<00> 

THIS SWITCH IS TO BE USED WITH THE FUNCTION 
SELECTION PROGRAM CSAs210)® IF A WRITE OR A WRITE 
CHECK FUNCTION IS SELECTED MITH THIS SW SET^ THE 
PROGRAM WILL ASK FOR THE PATTERN TO BE WRITTEN OR 
WRITE CHECKED CPATRN?)^ THE USER SHOULD TYPE IN THE 
(OCTAL) PATTERNg THIS PATTERN WILL BE WRITTEN (OR 
WRITE CHECKED) ON THE DISK^ FOR FURTHER INFORMATION 
REFER TO SECi 9,0i 
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7^0 PROGRAM DESCHIPTION 

tHE FiRSf fEST IS AIMED DETECTING IMPEPENDING 

EhEcno^ HEcnhnckh failuhes ih the drive awd 

INWER/OUTER lUlMlT SWITCHES^ 

IM THE MEXf TWO lESTS^ THE DISK 15 FOHMATTED AND 
CHECKED rOR CORRECT FORMATTIWG^ IF THE DISK IS 
AN RK^OSF, THE EMTIRE DISK IS FORMATTED EACH TIME 
THE E¥EN DRIVE IS TESTED^ MO FORMATTING IS DONE WHEN 
THE ODD DRIVE IS TESTED, THE DISK IS CHECKED EACH 
TIME FOR PROPER FORMATf HOWEVER^ 



in miT TWO TESTS THE SEEK LOGICi POSlTIOMERi ETC 
km CHECKED OUT BY DOIWG IMPLIED SEEK^ USING TWO 
DIFFERENT SEEKIi^G PATTERNS^ THE FIRST OiE IS A 
DECREASII^G SAW-TOOTH PATTERN 

C0«^3i2'^0'^311«^0«3l0^,tf )f THE SECOND ONE IS h 
COMVERGIWG^DIVERGIMG PATTERN 
C0™3i2^i«^3ll^2^3|0g8e^K ON GETTIMG kU ERROR. 
FURTHER hUkhtSlS IS DONE TO FIND OUT MORE ABOUT THE 
NATURE Of ERROR, MINy TIMES UDDITIOMAL IHFORMATIOW 
IS GIVEW FOR THE COWVIENCE OF THE USER^ RETRIES ARE 
DOI^E iHEWEVEH hn ERROR OCCURS^ 

IN THE SUBSEQUENT TESTS EXTENSIVE WRITING IS DONE 
USING MORE TH^N 2000 DIFFERENT PATTERNS^ THE DATA 
IS READi (SOFTWARE) COMPARED^ AMD ^RITE CHECKED, 

E?ER¥TIME hn ERROR OCCURS RETRIES ARE D43NE^ TO CHECK 
ir IT WAS A RECOVERABLE ERROR OR NQT^ THE USER CAN 
CHANGE THE PATTERNS TO BE i^RITTEN OM THE DISK^ THE 
DATA TRANSFER BUFFERS CAN BE RE-LOCATED B¥ THE USER 
TO DIFFEREMT PARTS OF MEMORY^ REFER TO LOCATIONS 
^PBUFO^i ^P8UFi% ^PAT|% ^PTRJIOI^ lU THE LISTINGS 
FOR MORE DETAILS^ SEE SEC 1^1^ 

THE SHUWf CUHREMT CHANGE TEST I^RITES^. READS AND 
CHECKS FOR ERRORS OU CYLINDERS 127 AND 128, THIS 
REGION HAS CRITICAL ^PACKIMG DENSITY^ TO '«^RITE 
CURRENT'^ RATIOS^ 

THE SEEK TIMER PROVIDES SEEK TIMES AUD GRAPHS AS 
EIPLAIMED IN SEC 8^0 

A FUiCTIOM SELECTION SUB-PROGRAM IS PROVIDED FOR 
USER SELECTION OF FUNCTIONS^ SEE SEC 9t0 

EVERY TEST IM THE PROGRAM IS PHECEEDED BY AN 
EXPLANATIOM OF THAT TESTf THE USER IS ADVISED TO 
REFER TO THAff IF MORE IWFORMATION IS MEEDEDg 



7^1 PERMISSIBLE USER PROGRAM MODIFICATIOMS 
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THE USER cm mKE MINOR CHANGES IN POIMTERS^ TABLES^ 
ETCa TO TAKE CARE OF HIS SPECIAL NEEDS^ If IS 
AD¥iai^BliE TO MAKE CHANGES IF ANy^ RIGHT AT THE 
BEGINING^ 

7«l.l SEEK TIMING CAN BE DOME BETWEEN AWY Tm CYLIWDERS# 
BY MAKING CHANGES DESCRIBED IM THE CYLINDER ADDRESS 
TABI.E AT LOCATIONS ^SOAD* AND ^SIAD^ in THE 
liISTINGS, 

7,1^2 IN CASS YOU HA¥E A him PRINTER AND WANT YOUR OUTPUT 
on THE LINE PRI^TEPf CHANGE LOCATION ^$TPS^ TO 
177S14 AND LOCATIOiW ^$TPB* TO 177516 (LINE PRINTER 
VECTORS) « 

7a ®3 II^PUT/OUTPUT DATA BUFFERS (FROM ^HgRE DATA TRANSFERS 
I^ILL 8E DOBIE TO AND FROM THE DISK) CA^ BE RELOCATED 
TO ANYWHERE THE 2BK OF MEMORY (DO NOT OVERLAY THE 
PROGRAM) e THIS CAN BE DONE BY CHANGING THE CONTENTS 
or LOCATIONS ^PSUFO^ AWD *PBUFl^ TO THE STARTING 
ADDRESSES OF THE TWO USER SELECTED BUFFERS^ IT 
SHOULD BE NOTED THAT EACH OF THE TWO BUFFERS SHOULD 
BE 768 CDECIMAL) WORD LONG, 

FOUR DIFFERENT PATTERN GEf^ERATOR ROUTINES HAVE BEEW 
USED IN THIS PROGRAMi A« PTGENO B^ PTGEWl C. 
PTGEN2 Ds PTGENIa THEY HAVE BEEN DESCRIBED IN 
DETAIL AT CORRESPONDIWG LOCATIONS IN THE LISTING, 
THE ORDER IN WHICH THEY ARE CALLED IS DESCRIBED AT 
THE BEGINING OF TEST 6, THIS CALLING ORDER CAN BE 
CHANGED BY MAKING CHANGES IN THE FOUR POINTERS 
A^^PATO^ Ba, *PAT1^ Cs ^PAT2^ D« ^PAT3% THESE 4 
POINTERS CONTAIN THE STARTING ADDRESS OF EACH 
ROUTINEe 

7a«S AS A SPECIAL CASE OF THE ABOVEi YOU CAN ^RITE THE 
SAME TWO COR ONE) PATTERN/S ON THE ENTIRE DISK USING 
^PTGENO*' ROUTINE^ TO ^RITE THE SAME ONE PATTERN! 
CHANGE LOCATION ^PATl^ TO ^PTGENO^ (STARTING ADDRESS 
OF PTGENO) 

CHANGE LOCATION ^PAT2^ TO ^PTGENO^ (STARTING ADDRESS 
OF PTGENO) 

CHANGE LOCATION *PAT3^ TO ^PTGENO*^ (STARTING ADDRESS 
OF PTGENO) 

FILL LOCATIONS ^PTRNOl^ AND ^PTRN02^ WITH THE 
PATTERN YOU ^ANT^ 

TO WRITE 2 DIFFERENT PATTERNS (IN ALTERNATING 
SEC TORS ) I 

CHANGE ^PATl% ^PAT2^ AND ^PAT3* AS DESCRIBED ABOVE^ 
FILL ^PATRNOi^ AND ^PATRN02^ WITH THE TWO PATTERNS 
YOU WANT* 

l^l^S IN TEST lOi IF YOU ^ANT TO WRITE AND CHECK CYLINDERS 
127 AND 128 WITH PATTERNS OTHER THAN THE 12 USED^ 
CHANGE ANY OR ALL OF THE 12 POINTERS *SP1^ THROUGH 
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^SP12^ TO CONTAIN PATTERNS YQU WANT« 



8,0 SEEK TIMER g GRIPHS 

THE LAST TEST IM THIS PPOGRAM IS THE SEEK TlMEEg IN 
OBDER TO TIME THE SEEKS^ THE SECTOH COUNTER HAS BEEN 
USED AS h TIME BASE* THUS THE ACCURACY OF THE TIMES 
RECORDED IS AS GOOD AS THE ACCURACY OF THE SECTOP 
COUNTED (WHICH IN TURM DEPENDS OW THE EOTATIOM SPEED 
OF THE DISK) ® 

IN THE FIRST PART OF THIS TIMERi SOME CRITICAL SEEKS 
HAVE BEEN TIMED CCYLIWDERS 0»l# 119^1%%, 0««3f 0»16^ 
0^32i 0^202# O^iOO) EACH SEEK IS DONE 100 TINES# 
TIMES ARE RECORDED^ THEN THE TIMES ARE SORTED OUT 
AMD A PRINTOUT IS GIVEN SHOWING HO^ MANY TIMES A 
PARTICULAR SEEK TIME WAS OBTAINED^ EXAMPLEl SEEK 
BETWEEN AND LAST CYLINDER I^AS DONE 100 TIMES, 99 
TIMES A SEEK TIME OF 95 MS WAS OBTAINED^ ONCE IT 
GAVE 100 MSt THIS GIVES THE USER AN IDEA OF HOW 
CONSISTENT ARE THE SEEK TIMES« 

IF YOU ^ANT TO TIME SEEK BETWEEN ANY OTHER SET OF 
CYLINDERS^ YOU CAN DO BY FOLLOWING THE INSTRUCTIONS 
AT LOCATION ^SOAD^ IN LISTINGS, SEE SEC 7a 

IN THE SECOND PARTi^ A GRAPH OF THE ^CYLINDER SEEKED 
FROM 0*^ IS PLOTTED AGAINST ^SEEK TIME% TWO GRAPHS 
ARE AVAILASLEi NORMALLY THE SMALL GRAPH IS PRINTED 
OUTa THE SMALL GRAPH PLOTS THE SEEK TIMES FOR 
SELECTED CYLINDERS (ABOUT 495 COVERING THE RANGE 
FROM CYLINDER TO 202^ IT GIVES THE USER A QUICK 
SEEK CHARACTERISTICS OF A DRIVE^ 

THE OPTIONAL COMPLETE GRAPH (SW 4) GIVES A GRAPH 
SIMILAR TO THE ABOVE ONEf BUT PLOTS ALL THE 
CYLINDERS 

THE GRAPH SHOl^^N ON LAST PAGE IS A SAMPLE OUTPUT* IT 
SHOULD SE REALIZED THAT DIFFERENT DRIVES MAY HAVE A 
SLIGHTLY DIFFERENT CHARACTERISTIC « 



9^0 FUNCTION SELECTION PROGRAM 



THIS PROGRAM GIVES THE USER A CAPABILITY TO SELECT A 
FUNCTION AND EXECUTE IT# FROM THE CONSOLE TELETYPE® 

STARTING ADDRESSii210 

ON STARTING THE PROGRAM AT 210^ THE FOLLOWING 
QUESTION APPEARSi 



FUNCf lONf 
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THE REPLY SHOUIjD BEl WR FOR WPITE 

WC FOR mm CHECK 

RD FOR mm 

RC rOH READ CHECK 

CH FOR COWTROL RESET 

DR FOR DRIVE RESET 

SK FOR SEEK DR 

ALL COMMJIWOS SHOOliD BE fERMINATiD BY A CARRIAGE 

RUTURNe DEPEMDING ON WHICH FUNCTIOII IS GIVEN THE 



FOLLOWING QUESTIOI^S APPEIRl 

mBhl TYPE in THE BUS ADDRESS (OCTAL) 

FOLLOWED BY k C,R, 

RKOA? TYPE in THE DISK ADDRES (OCTAL) 

FOLLOWED BY C^E^ 

IF h NON-EXISTENT CYLINDER OR SECTOR IS SELECTED^ 
THE QUESTIOM IS REPEATED AGAIW^ 

#WORDS| TYPE IN THE NUMBER OF VIORDS YOU WANT 

TO fRAWSFEHt IT SHOULD BE IW OCTAL^ THUS IF YOU 
WANT TO READ A SECTOR TYPE IN 400 FOLLOWED BY C^R. 
ANY NUMBER OF iORDS CAN BE TRANSFERRED DEPENDING ON 
THE BUFFER SIZE AVAILABLE^ 

FOR A WRITE FUWCTIOMl IF SWO IS SET TO I THE PROGRAM 
WILL ASK FOR THE DATA PATTERN TO BE WRITTEN! 

PATRM? THE USER SHOULD TYPE IW THE DATA 

PATTERN (OCTAL) TO BE WRITTEN^ FOLLOWED BY <CR>« THE 
PATTERN WILL BE WRITTEN ON THE DISK^ NOTE THE MUMBER 
OF WORDS TO BE WRITTEN AND THE DISK ADDRESS SHOULD 
BE SPECIFIEDt 

FOR A WRITE CHECK FUMCTIOI^l IF Sl^ IS SET TO i, THE 
USER IS ASKED FOR THE PATTERN TO BE WRITE CHECKEDl 
PATRN? THE USER SHOULD T^PE lU WE (OCTAL! PATTERN « 

FOR k SEEK FUNCTIONS CYLl? CYL2? I^ REPLY TO THESEi 
TYPE IN THE CYLINDER NUMBERS (OCTAL) BETWEEW WHICH 
THE SEEK IS Tp BE OONE^ IF A NOW EXISTENT CYLINDER 
IS TYPED IN THE aUESTION IS REPEATED AGAIN^ 



THE FUNCTION IS EXECUTED AGAIN km hGhlH ^ TO GET 
OUT OF THIS LOOP 3 SHOULD BE SETf AT THIS POINT 
THE QUESTION CFUNCTION|) IS ASKED AGAIN^ 

IF UPON EXECUTION OF A FUNCTION AN ERROR OCCURS IT 
IS REPORTEDt ALL SWITCH OPTIONS WHICH APPLY TO ANY 
OTHER ERRORf ALSO APPLY TO THIS ERROR^ 
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IF OM INPUTTING h N0MBEP OR COMMAND A MISTAKE IS 
MADEi THE IMPUT STRING CAN BE DELETED BY HITTING 
^RUBOUT^ KEYf THE MEW STRING CAN BE TYPED IN AGAIN^ 



iO^O ERROR IMrORMATlON 

WHENEVER AW ERROR MESSAGE IS PHIMTED OUT^ Alii. 
REGISTERS AND OTHER , DATA PERTAIHIMiG TO THE ERROR 
ARE ALSO GI¥EN, RKOS^ RKER^^.RKBA INDICATE THE 
COWTEWTS or THE CORRESPONDING REGISTERS AT THE TIME 
OF ERHOR^ 

EVERY ERROR MESSAGE CONTAII^S A PC® THIS PC 
INDICATES THE POSITION IN PROGRAM WHERE THE ERROR 
CALL IS LOCATED^ THE ERROR MESSAGE^ BECAUSE OF 
PRACTICAL COiSIDERATIONS IS MADE SHORT AND 
MEANIMGrULg THE USER IS ADVISED TO LOOK UP THE PC 
IN THE PROGRAM LISTH^G^ WHERE HE WILL Flf^D MORE 
liFORMATION ABOUT THE ERROR^ IN UhMY INSTANCES^ A 
SINGLE FAULT WILL GIVE RISE TO MORE THAW OWE ERROR 
REPORT^ A LITTLE DELIBERATION AMD CAREFUL 
EXAMINATION OF THE DATA GIVEN WILL BE CERTAINLY VERY 
HELPFUL, A BRIEF EXPLANATION OF WHAT IS BEING 
CHECKED in THE SUBTEST IS GIVEN AT THE BEGII^NING OF 
EVERY SUBTEST® ALL THE NUMBERS GIVEP WITH ERROR 
MESSAGES ARE IM OCTAL^ 

AT TIMES WHEN AM ERROR OCCURS BESIDES THE ERROR 
PRINTOUT MORE PRINTOUTS OCCUR^ THEY ARE GIVEW TO 
HELP THE USER UNDERSTAND THE PROBLEM ^ 



1 1^0 UNEXPECTED TIMEOUTS AND RKii INTERRUPTS 

mEn AW UNEXPECTED TIWEOUT OCCURS^ THE PC AT WHICH 
TIME OUT OCCURRED IS TYPED OUT AND THE PROGRAM 
HALTSt IF IT IS INTACT, IT CAN BE RESTARTED BY 
PRESSIMG COWTINUEa 

IF hn UNEXPECTED RKil INTERRUPT OCCURS THE PROGRAM 
TYPES OUT THE PC AT WHICH THE INTERRUPT CAME IN AND 
THEi HALTS® PRESSING CONTINUE WOULD RESTART THE 
PROGRAI^ FROM BEGINMIWG, 



12^0 C0I4M0NLY USED SUBHOUTIWES 

A BRIEF EXPLIIWATION OF EVERY SUBROUTINE IS GIVEN IN 

THE LISTINGS CJUST BEFORE THE CODE FOR THAT 
SUBROUTIMEU ALL SUB-^ROUTINES ARE LISTED W THE 
^TABLE OF COWTEI^TS^ FOUWD AT THE BEGINNING OF 
LISTII^GS^ THESE ARE TWO WAYS IN WHICH ROUTIWES ARE 
CALLED^ 1^ aSR PCfROUTIWE 2^ THROUGH AN ENCODED 
TRAP IWSTRUCTIOM^ THE LO^ER BYTE OF THE ^TEAP^ 
INSTRUCTION IS USED TO INDEI THROUGH THE TRAP TABLE 



HD^ll-DZRKL«.Sf RKil^RKOS DY^^^MIC TEST MACYll 30C10463 14-aUL««77 08l03 PIGE 15 



C$TEPAD) FOR THE STARTING ADDRESS Of THE DESIRED 



13tO SAMPLE GRAPH AND SEEK TIMER OUTPUTS 



or SEEKS^ IMDICATES THE NUMBER OF TIMES A PARTICULAR 
^SEEK TIHE^ WAS OBTAINED^ NOTE THAT TIHES ARE RECORDED FOR 
BOTH rORWARD AND REVERSE SEEKS^? BEtmEU A SET OF CYLINDERS^, 

SEEK TIME SCALE FACTORigO«01 HILI SECS 



# OF 
SEEKS 



SEEK 
TIME 



# OF 
SEEKS 



SEEK 

TIHE 



CyLSlO-202 
FRI^iRO 

100 



9075 



REVRSE 
100 



9075 



CyLS|0»«l 
FRWRD 

100 



825 



REVRSE 
100 



1155 



CYLSil79'^181 
FRWRD 

iOO 



il55 



REVRSE 
100 



1155 



CfLS|0^3 
FRWRD 

100 



1485 



REVRSE 
100 



1485 



CYLS|0««16 
FRWRD 

iOO 



3135 



REVRSE 
100 



3135 



CYLSlO'^32 
FRWRD 

100 



3795 



REVRSE 
100 



3795 



CYLSlO^lOO 
FRWRD 



REVRSE 



100 



5775 



100 



5775 
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X AXIS ^ SEEK TIME MILI SECS ##SAMPLE OUTPUT## 

¥ AXIS ^ CYLINDER SEEKEO FBOM 

iO 20 30 40 50 60 70 SO 90 iOO 110 120 130 

















V 
A 






V 

A 






A 




















A 


1 u ^ 




A 




















J g SB 




¥ 








45 3 ™ 






"S rt 
JO™ 






-J ^ ™ 












A SS ffiiB 






S A 






S K 






£. A ^ 
























80™ 






85^ 












Cl K nn 






too™ 






1 OS® 






I I 0«® 






1 l§™ 






1 20«® 


















135"® 






140- 






145- 






150- 












160^^ 






165- 






170^ 






ilS^ 






180^ 






185^ 






190^^ 












200^ 






203- 







X 
X 

X 

X 

X 
X 

X 
X 

X 
X 

X 
X 
X 

X 
X 

X 
X 

X 
X 

X 
X 

X 
X 



X 

X 
X 

X 
X 

X 

X 

X 

. X 
X 
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825 








826 




HD^U'«DZBKL'«E, RKil-RKOS DYNAMIC TEST 


827 


?»COPYRIGHT CC3 1974,1977 


828 


l»DIGITAL 


EQUIPMENT CORP, 


829 




MASS, 01754 


830 


f* 






83! 


f »PROGRAM 


BY JIM KAPADIA 


832 










;*THIS 


PROGRAM WAS ASSEMBLED USING THE PDP^ll MAINDEC SYSMAC 


834 


;*PACKAGE 


(MAINDEC»ll,«DZQAC"C3), JAN 19, 1977 , 


835 


|» 




836 


f ^JANUARY 


1975 


837 








838 


j»REVISED 


MARCH 1976 BY TOM SAWYER 


839 
840 


}*REVISED 


BY CHUCK HESS, AUGUST, 1976 


841 




OPERATIONAL SWITCH SETTINGS 


842 


1* 






843 


l« 


SWITCH USE 


644 


f# 






845 


i 




15 HALT ON ERROR 


846 


f# 




14 LOOP ON TEST 


847 


f« 




13 INHIBIT ERROR TYPEOUTS 


848 


j# 




12 CYCLE ON ERROR TO PREVIOUS 'SCOPE' 


849 


l« 




10 BELL ON ERROR 


850 






9 LOOP ON ERROR 


851 


,» 




8 SELECT TEST TYPED IN BY USER 


852 


l» 




6 EXECUTE THE SEEK TIMER (TEST 11) 


853 


j» 




5 TYPE THE SEEK TIMER GRAPHS (TEST 11) 


854 


1* 




4 TYPE THE COMPLETE GRAPH (ALL SEEK TIMES 


855 


f» 




NOTE, OTHERWISE YOU GET SMALL GRAPH 


856 


J* 




3 TERMINATE FUNCTION SELECTED BY USER 


857 


}# 




(FOR FUNCTION SELECTION PROGRAM SAb210) 


858 






2 DROP THE DRIVE AFTER MAXIMUM ALLOWABLE 


859 






NUMBER OF ERRORS HAVE OCCURED 


860 






ASK FOR PATTERN TO BE WRITTEN (OP WRITE 


861 


f* 




CHECKED), IN FUNCTION SELECTION PROGRAM 


862 


l» 




11 DUMP OUT ALL RKll REGISTERS ON ERROR 


863 








864 








865 








866 


l# 


YOU ARE ADVISED TO READ THE DOCUMENT FOR THIS PROGRAM, 


867 


1^ 


FUNCTION SELECTION PROGRAM STARTS AT 210, 
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868 
869 




,SBTTL 


BASIC DEFINITIONS 


870 




;»INITIAL ADDRESS 


OF THE STACK POINTER #»* 1100 *»« 


871 


001100 


STACKS 


1100 




872 




.EQUIV 


EMT, ERROR 


MBASIC definition of error CALL 


873 
874 




jEQUIV 


lOT, SCOPE 


If BASIC definition OF SCOPE CALL 


875 




|*MISCELLANEOUS DEFINITIONS 


876 


000011 


HTas 


U 


IICODE for horizontal TAB 


877 


000012 


LFa 


12 


1 iCODE FOR LINE FEED 


878 


000015 


CPs 


15 


J f CODE FOR CARRIAGE RETURN 


879 


000200 


CPLFb 


200 


If CODE FOR CARRIAGE RETURN-LINE FEED 


880 


177776 


PSas 


177776 


f f PROCESSOR STATUS WORD 


881 




.EOUIV 


PS,PSW 




882 


177774 


STKLMTa 


177774 


f f STACK LIMIT REGISTER 


883 


177772 


PIRQs 


177772 


f f PROGRAM INTERRUPT REQUEST REGISTER 


884 


177570 


DSWRs 


177570 


f f HARDWARE SWITCH REGISTER 


885 
886 


177570 


DDISPa 


177570 


f f HARDWARE DISPLAY REGISTER 


887 




J^GENERAL PURPOSE 


REGISTER DEFINITIONS 


888 


000000 


ROs 


%0 


f f GENERAL REGISTER 


889 


000001 


Rlss 


%1 


f f GENERAL REGISTER 


890 


000002 


R2sB 


%2 


f f GENERAL REGISTER 


891 


000003 


R3«s 


•%3 


f f GENERAL REGISTER 


892 


000004 


R4ss 


%4 


f f GENERAL REGISTER 


893 


000005 


R5s 


15 


f f GENERAL REGISTER 


894 


000006 


R6b 


%6 


f f GENERAL REGISTER 


895 


000007 


R7s 


%7 


f f GENERAL REGISTER 


896 


000006 


SPs 


%6 


f f STACK POINTER 


897 


000007 


PCs 


%7 


f f PROGRAM COUNTER 


898 








899 




|#PPIORITY LEVEL DEFINITIONS 


900 


000000 


PROS 





1 f PRIORITY LEVEL 


901 


000040 


PRla 


40 


f f PRIORITY LEVEL 1 


902 


000100 


PR2is 


100 


f f PRIORITY LEVEL 2 


903 


000140 


PR3^ 


140 


f f PRIORITY LEVEL 3 


904 


000200 


PR4b 


200 


f f PRIORITY LEVEL 4 


90S 


000240 


PR5SS 


240 


If PRIORITY LEVEL 5 


906 


000300 


PR6S 


300 


f f PRIORITY LEVEL 6 


907 
908 


000340 


PR7SI 


340 


ff PRIORITY LEVEL 7 


909 




f»"SWITCH REGISTER" SWITCH DEFINITIONS 


910 


100000 


SWISS 


100000 




911 


040000 


SW148 


40000 




912 


020000 


SW138 


20000 




913 


010000 


SW12« 


10000 




914 


004000 


SWllss 


4000 




9!S 


002000 


SWIOP 


2000 




916 


001000 


SW09B 


1000 




917 


000400 


Si^OS^ 


400 




918 


000200 


SH07S! 


200 




919 


000100 


sm^m 


100 




920 


000040 




40 




921 


000020 




20 




922 


000010 




10 




923 


000004 




4 
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^ j& en ft Qf3». f *9 ^j^a*)^ 

Zo'»Ai'H®77 1112/ 


BASIC DEFINITIONS 


92* 


A A A A ft H 


SHOlst 


3 




925 


OOOOOi 


S^OOss 


1 




926 




,EQUZV 


SW09y 


SW9 


927 




gEQUIV 


SWOSf 




928 




sEQUXV 


SWO?f 


mi 


929 






SW06f 


SW6 


930 




9EQUIV 


SWOSy 


SW5 


931 




9EQUIV 


SW04r 


SW4 


932 




eEQUIV 


SM03» 


SW3 


933 




gEQUIV 


SW02r 


SW2 


934 




aEQUIV 


SWOly 


SWl 


93S 






SWOOy 


swo 


936 










937 




f »DATA 


BIT DEFINIT 


938 


100000 


BITlSis 


100000 


939 


/t( A A A A A 


BIT14S 


40000 




940 


A 1 A A A A 


3ITl3«s 


20000 




941 


01 0000 


BIT12S 


iOOOO 




942 


004000 


BIflls 


4000 




943 


A A O A A A 


BIflOs 


2000 




944 


001000 


BITOSs 


1000 




945 


A A A jt A A 


BIT088 


400 






A AA^ AA 


BIT07S 


200 




947 


000100 


BIT06^ 


100 






A A A A A A 


BITOSs 


40 




949 


A A AAOA 


BIT04a8 


20 




9S0 


000010 


BIT03B 


10 




95 1 


000004 


BIT02S 


4 




952 


000002 


BITOls 


2 




953 


OOOOOi 


ilTOOs 


1 




954 




9EOUIV 


8IT09 


#BIT9 


955 




9EQUIV 


BIT08 


«BIT8 


956 




gEQUIV 


BIT07 


»BIT7 


957 




jEQUIV 


BIT06 


#BIT6 


958 




sEQUIV 


BIT05 


»BIT5 


959 




gEQUIV 


BIT04 


# BIT4 


960 




9EQUIV 


BIT03 


,BIT3 


961 




,EQUIV 


BIT02 


fBIT2 


962 




,EGUIV 


BITOl 


rSITi 


96 3 




gEQUIV 


BITOO 


,BITO 


964 










965 




;»BASIC 


"CPU" 


TRAP 


966 


000004 


ERRVECa 


4 




967 


000010 


RESVECb 


10 




968 


000014 


TBITVEC 


sl4 




969 


00001 4 


TRTVECa 


14 




970 


00001 4 


BPTVECs 


14 




971 


000020 


lOTVECs 


20 




972 


000024 


PWRVECs 


24 




973 


000030 


EMTVECa 


30 




974 


000034 


TRAPVECs34 




975 


n A AAA A 


TKVECs 


60 




976 


000064 


TPVECa 


64 




977 


000240 


PlRQVECa240 




978 










979 




■ ,SBTTL 


TRAP 


CATCH 



iTIME OUT AND OTHER ERRORS 

} RESERVED AND ILLEGAL INSTRUCTIONS 

|«T" BIT 

I TRACE TRAP 

^BREAKPOINT TRAP (BPT) 

I INPUT/OUTPUT TRAP (lOT) **SCOPE#* 

) POWER FAIL 

fEMULATOR TRAP (EMT) «*ERROR#« 

jWTRAP" TRAP 

f TTY KEYBOARD VECTOR 

f TTY PRINTER VECTOR 

I PROGRAM INTERRUPT REQUEST VECTOR 
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DZRKLE 


Pll 26 


«APP«77 


980 






981 




000000 


982 






983 






934 






985 




000174 


986 


000174 


000000 


987 


000176 


000000 


988 






989 


000200 


000137 


990 






991 




000210 


992 


000210 


105237 


993 


000214 


000137 


994 






99S 






996 






997 






998 




000220 


999 




000046 


1000 


000046 


015330 


1001 




000052 


1002 


000052 


000000 


1003 




000220 


1004 







001216 
002462 
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|*ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A " , + 2»HALT" 
f ^SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
|*LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

«»174 

DISPREGl .WORD m SOFTWARE DISPLAY REGISTER 

SWREGl .WORD jf SOFTWARE SWITCH REGISTER 

,SBTTL STARTING ADDRESS(ES} 

JMP 9«8TART | f JUMP TO STARTING ADDRESS OF PROGRAM 

.b210 

INCB FFUNC 

JMP i#START 

.SBTTL ACTll HOOKS 



I SET FLAG INDICATING SELECTION OF 
;FUNCTION PROGRAM, 



y HOOKS REQUIRED BY ACTll 

dSVPCa, jSAVE PC 

^3846 

SENDAD ffUSET L0C,46 TO ADDRESS OF SENOAD IN ,$EOP 

eSS2 

sWORD n23SET LOCe52 TO ZERO 

eSsSSVPC > n RESTORE PC 
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1005 






,5BTTL 


COMMON 


TAGS 




1006 














1007 








1008 






I»THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 


1009 






;«USED IN THE PROGRAM, 




1010 
1011 




001100 




.BllOO 






1012 


OOllOO 




ICMTAGI 






M START OF COMMON TAGS 


1013 


001100 


000000 


$PASS| 


.WORD 





1 ^CONTAINS PASS COUNT 


1014 


001102 


000 


STSTNMi 


9 BYTE 





1 {CONTAINS THE TEST NUMBER 


1015 


001103 


000 


SERFLGt 


.BYTE 





; fCONTAINS ERROR FLAG 


1016 


001104 


000000 


SICNTI 


.WORD 





If CONTAINS SUBTEST ITERATION COUNT 


1017 


001106 


000000 


SLPADRl 


.WORD 





t fCONTAINS SCOPE LOOP ADDRESS 


1018 


001 110 


000000 


SLPERRi 


(WORD 





t fCONTAINS SCOPE RETURN FOR ERRORS 


1019 


0011 12 


000000 


gERTTLi 


9 WORD 





; fCONTAINS TOTAL ERRORS DETECTED 


1020 


001114 


000 


glTEHBl 


.BYTE 





f fCONTAINS ITEM CON'TROL BYTE 


1021 


001113 


001 


SERMAXi 


.BYTE 


1 


f fCONTAINS MAX. ERRORS PER TEST 


1022 


001116 


000000 


SERRPCS 


9 WORD 





f fCONTAINS PC OF LAST ERROR INSTRUCTION 


1023 


001120 


000000 


SGDADRi 


9WORD 





f fCONTAINS ADDRESS OF 'GOOD* DATA 


1024 


001122 


000000 


SBOADRt 


, WORD 





f fCONTAINS ADDRESS OF 'BAD* DATA 


1025 


001124 


000000 


$GDOATi 


9 WORD 





f fCONTAINS 'GOOD* DATA 


1026 


001 126 


000000 


SBDDATi 


9 WORD 





f fCONTAINS 'BAD' DATA 


1027 


001130 


000000 




.WORD 





f f RE5ERVED--N0T TO BE USED 


1028 


001132 


000000 




.WORD 







1029 


001134 


000 


SAUTOBi 


9BYTE 





f f AUTOMATIC MODE INDICATOR 


1030 


001135 


000 


SiNTAGi 


.BYTE 





f f INTERRUPT MODE INDICATOR 


1031 


001136 


000000 




.WORD 







1032 


001140 


177570 


SWRi 


. WORD 


DSWR 


f f ADDRESS OF SWITCH REGISTER 


1033 


001142 


177570 


DISPLAY! 


.WORD 


DDISP 


f f ADDRESS OF DISPLAY REGISTER 


1034 


001144 


177560 


STKSl 


177560 




f f TTY KBD STATUS 


1035 


001 146 


177562 


$TKBi 


177562 




f f TTY KBD BUFFER 


1036 


001150 


177564 


iTPSi 


177564 




• f TTY PRINTER STATUS REG. ADDRESS 


1037 


001152 


177566 


STPBS 


177566 




i f TTY PRINTER BUFFER REG, ADDRESS 


1038 


001154 


000 


8NULLi 


eBYTE 





fCONTAINS NULL CHARACTER FOR FILLS 


1039 


001153 


002 


SFILLSJ 


sBYTE 


2 


t fCONTAINS « OF FILLER CHARACTERS REQUIRED 


1 040 


001156 


012 


SFILLC: 


.BYTE 


12 


f f INSERT FILL CHARS. AFTER A "LINE FEED" 


1041 


001157 


000 


STPFLGi 


.BYTE 





f f "TERMINAL AVAILABLE" FLAG (BlT<07>8d«YES) 


1042 


001 160 


000000 


$REGAD| 


.WORD 





f fCONTAINS THE ADDRESS FROM 


1043 












I f WHICH (SREGO) WAS OBTAINED 


1044 


001162 


000000 


$REG0f 


.WORD 





I fCONTAINS ( ($REGAD)> 0} 


1045 


001164 


000000 


8REG1I 


.WORD 





; fCONTAINS ( C$REGAD)+2) 


1046 


001 166 


oooooo 


$BEG2t 


.WORD 





f fCONTAINS (CSREGAD)*43 


1047 


001 170 


000000 


SREG3t 


.WORD 





f fCONTAINS ( CSREGAD3-f6) 


1048 


001 172 


oooooo 


$REG4t 


.WORD 





f fCONTAINS (CSREGAD)*10) 


1049 


0117 4 


oooooo 


SREGSl 


gWQRD 





; fCONTAINS { ( S REGAD ) -f 1 2 ) 


1050 


001176 


oooooo 


SBEG6i 


.WORD 





; fCONTAINS ( CSREGAD)+14) 


1051 


001200 


oooooo 


8REG7i 


.WORD 





; fCONTAINS ( ( $REGAD} -f 1 6 ) 


t052 


001202 


oooooo 


$REG10| 


.WORD 





f fCONTAINS C{SREGAD)4.203 


1053 


001204 


oooooo 


$ESCAPEiO 




f f ESCAPE ON ERROR ADDRESS 


1054 


001206 


177607 000377 


$BELLs 


«ASCIZ 


<207><377><377> 


f fCODE FOR BELL 


1055 


001212 


077 


SQUESi 


«ASCII 


/?/ 


; f QUESTION MARK 


1056 


001213 


015 


SCRLFj 


.ASCII 


<13> 


f f CARRIAGE RETURN 


1057 


001214 


000012 


SLFl 


.ASCIZ 


<12> 


} f LINE FEED 


1058 








1059 














1060 















MD-n^-DERKL-E, PKll^RKOS DYNAMIC TEST 
DZRKLE.Pll 26"APR-77 12l27 

1061 
1062 
1063 

1064 
1065 
1066 
1067 
1068 

1069 001216 OOOOOO 

1070 001220 OOOOOO 
1071 

1072 

1073 001222 000 

1074 

1075 

1076 

1077 

107 8 001223 000 
1079 

1080 001224 000 
1081 

1082 001226 
1083 
1084 
1085 

1086 
1087 
1088 
1089 
1090 

1091 001232 OOOOOO 

1092 001234 020000 

1093 001236 040000 

1094 001240 060000 

1095 001242 100000 

1096 001244 120000 

1097 001246 140000 

1098 001250 160000 
1099 
1100 
1101 

1102 001252 OOOOOO 

1103 001254 OOOOOO 

1104 001256 OOOOOO 
1105 
1106 

1107 001260 OOOOOO 

1108 001262 OOOOOO 

1109 001264 OOOOOO 
1110 
1111 
1112 

1113 001266 OOOOIS 

1114 001320 000015 
HIS 001332 000015 
1116 
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001226 OOOOOO 



001230 OOOOOO 



f IN CASE YOU WANT THE OUTPUT TO COME OUT ON LINE PRINTER, (IF YOU HAVE 
f ONE) , MAKE THE FOLLOWING CHANGES ABOVE! 



f CHANGE CONTENTS OF '$TPS' 
f CHANGE CONTENTS OF '$TPB' 



TO 177514 
TO 177516 



(LPT VECTOR) 

C " «) 



f TAGS AND GENERAL DATA AREA 



FFUNC! 
XXDPMDI 



.WORD 
.WORD 



DRVDONi .BYTE 
DRIVSl »BYTE 
.EVEN 

DRVPTR! 



DRIVO! 
DRIVli 
DRIV2! 

DRIVSl 
DRIV4J 
DRIVSl 
DRIV6! 
DRIV7I 



RETRYl! 

RETRYSi 
RETRY3I 



IN ADR I 
OUTADRS 

TIMER! 



OOOOOO 
020000 
040000 
060000 
100000 
120000 
140000 
160000 



EUFRS ^Bhm Us 
BUFRll ,BLKK 13, 

BUFRii 5BI1KW S3a 



f FLAG SET, TO INDICATE ENTRY INTO FUNCTION PROGRAM 
f IF PROGRAM LOADED BY XXDP, THE 
f LOWER BYTE HAS THE DRIVE NUMBER 

f AND THE UPPER BYTE CONTAINS THE RK05 'XXDP' CODE 
f FLAG, SET TO INDICATE THAT A 

f PARTICULAR TEST WAS SELECTED BY USEft (SW 83 



fCONTAINS NUMBER OF DRIVES THAT HAVE 

f BEEN ALREADY CHECKED 

fCONTAINS TOTAL # OF DRIVES PRESENT 



fCONTAINS POINTER TO INDICATOR STARTING 
f WHICH CHECKING SHOULD BE DONE FOR NEXT 
f AVAILABLE DRIVE 

fCONTAINS THE ADDRESS OF THE DRIVE 
f BEING TESTED 

f THESE ARE FLAGS TO INDICATE 

f THAT A PARTICULAR DRIVE IS 

f PRESENT. BIT IS SET TO 

f INDICATE THATg BITS 13, 14, 15 

fCONTAIN THE LOGICAL DRIVE 

f ADDRESS 



f GENERAL REGISTERS 



fCONTAINS INNER ADDRESS 
fCONTAINS OUTER ADDRESS 



f GENERAL BUFFERS 
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U17 
IU8 
1119 
1120 
1121 
1122 
1123 
1124 
1123 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
113S 
1136 
J137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1 149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1153 
1159 
1 160 
1161 
1162 

1163 
1164 
1165 

1166 
1167 
1168 
1169 
1170 
1171 
1172 



fIN CASE, YOU WANT TO USE BUFFERS STARTING AT SOME OTHER MEMORY 
f ADDRESS YOU CAN DO SO BY CHANGING THE FOLLOWING POINTERS, 
jBOTH THE BUFFERS SHOULD BE 768 (DECIMAL) WORDS LONG, 



001404 026446 
001406 031446 



001410 000000 
001412 000000 



001414 
001416 
001420 
001422 
001424 

001426 
001430 
001432 
001434 
001436 
001440 
001442 
001444 
001446 
001450 



010106 
010170 
010272 
010334 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



PBUFOi 

PBUFil 

BUFLGOl 

BUFLGli 


lOBUFO 
lOBUFl 

gWORD 
,WORD 






1 POINTER TO THE STARTING ADDRESS OF THE 

f BUFFER USED TO READ INTO FROM DIBK, 

1 POINTER TO STARTING ADDRESS OF BUFFER 

1 IN WHICH PATTERNS ARE GENERATED. (WRITING 

lis DONE FROM THIS BUFFER) 

f FLAG FOR 'lOBUFO' 

;FLAG FOR 'lOBUFl' 


PATOl 
PATH 


PTGENO 
PTGENl 




1 AD RES OF 'PATRN GENERATOR 0* 
{ROUTINE 

f ADRES OF 'PATRN GENERATOR l' 


PAT2I 


PTGEN2 




lADRES OF *PATRN GENRATOR 2* 


PAT3I 


PTGEH3 




1 ADRES OF 'PATRN GENRATOR 3' 


PRSPATe 
NXTPATI 


a WORD 
,WORD 






{CONTAINS THE POINTER TO THE 
1 ADRES OF 1 OF THE 3 'PATRN 
1 GENRATOR' ROUTINES 
fSAME AS ABOVE 


PGSUBRi 


.WORD 







DSKADRi 


bWORD 





.iCONTAINS DISK ADRES (DA) 


BUSADRt 


9 WORD 





{CONTAINS BUS ADRES (BA) 


WRDCNTJ 


8 WORD 





{CONTAINS WORD COUNT 


WOSKADi 


8 WORD 





{CONTAINS DISK ADRES 


WBUSADI 


,WORD 





{CONTAINS BUS ADRES 


WWRDCNi 


.WORD 





{CONTAINS WORD COUNT 


BUFNOl 


.WORD 





{CONTAINS STARTING ADRES 


ADRESi 


.WORD 





{OF A BUFFER 



{RKll REGISTERS 

{IF FOR ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM 
{THESE (BELOW), THE CONTENTS OF THE APPROPRIATE POINTERS SHOULD 
{BE MODIFIED SO THAT THE CORRECT REGISTER ADDRESS IS USED, 



001452 177400 

001454 177402 

001456 177404 

001460 177406 

001462 177410 



RKDSl 
RKERl 
RKCSl 
RKWCl 
RKBAl 



177400 
177402 
177404 
177406 
177410 
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1173 


001464 


177412 


RKDAS 


177412 








1174 


001466 


177416 


RKDBl 


177416 








1175 
1176 


001470 


000200 


RKPRIi 


200 






{CONTAINS THE CPU LEVEL (4) AT WHICH 


1177 














{RKll NORMALLY INTERRUPTS, THIS WORD 


1178 














{SHOULD BE CHANGED IF RKll IS DESIGNATED 


1179 














{A BR LEVEL OTHER THAN 5,EXP| IF IT 


1180 














{ IS CHANGED TO 6, THE CPU LEVEL WOULD 


1181 














{BE 1 LESS (5) & HENCE THIS WORD 


1182 














{SHOULD BE 240 (BIT POSITIONS ARE 


1183 














{IDENTICAL TO THE PRIORITY BITS IN PSW) 


1184 


001472 


000220 


RKVECl 


220 






{CONTAINS THE NORMAL VECTOR ADDRESS 


1185 














{TO WHICH THE RKll INTERRUPTS, IF THE 


1186 














{VECTOR ADDRESS HAS BEEN CHANGED, MODIFY 


1187 














{THIS WORD, 


1188 
1189 
















1190 
















1191 
















1192 


001474 


000000 


INDXll 









{GENERAL INDEX REGISTERS 


1193 


001476 


000000 


INDX2I 











1 194 


001500 


000000 


INDX3i 











1195 


001S02 


000000 


INDX4t 











1196 
















1197 


001504 


000000 


ERCNTll 









{GENERAL REGISTERS 


1198 


001506 


000000 


ERCNT2I 









{GENERAL REGISTERS 


1199 


001510 


000000 


ERCNT3i 









{GENERAL REGISTERS 


1200 


001512 


000000 


ERCNT4I 











1201 


001514 


000000 


ERCNT5I 











1202 


001516 


000000 


ERCNT6I 











1203 


001S20 


000000 


ERCNT7I 











1204 


001522 


000000 


ERCNTSi 











1205 
















1206 
















1207 






{♦THE FOLLOWING 


TABLE CONTAINS THE CYLINDERS BETWEEN WHICH THE SEEKS WILL 


1208 






{♦TIMED, 


s THEY HAVE 


BEEN 


SELECTED TO GIVE SOME TYPICAL SEEKS TIMES FOR THE 


1209 






{«3 SEEK SPEEDS, 


IF 


FOR 


ANY REASON YOU WANT TO TIME SEEKS BETWEEN ANY 


1210 






{♦OTHER 


SET OF CYLINDERS 


1, MAKE CHANGES IN THE CORRESPONDING SEEK CYLINDER 


1211 






{♦ADDRESSES. 








1212 
















1213 






{♦OUTER 


CYLINDER 


ADDRESS 


1, FROM WHERE SEEK WILL BE DONE 


1214 


001S24 


000000 


SOADI 









{CYLINDER 


1215 


001526 


000000 











{ " 


1216 


001530 


013140 




13140 






1 " 179 


1217 


001532 


000000 











J " 


1218 


001534 


000000 











{ " 


1219 


001536 


000000 











1 " 


1220 


001540 


000000 











1 " 


1221 
















1222 






|^*INNER 


ADDRESS, 


TO 


WHICH SEEK WILL BE DONE 


1223 


001542 


014500 


SIADI 


i4§00 






{CYLINDDER 202, LAST 


1224 


001544 


000040 




40 






1 " 1 


122S 


001S46 


013240 




13240 






{ " 181 


1226 


OOlSSO 


000140 




140 






1 " 3 


1227 


001552 


001000 




1000 






{ « 16 


1228 


001554 


002000 




2000 






{ « 32 



MD»il«OZRKL«E» RKil«RK05 DYNAMIC TEST MACYU 30(10465 i4«aUL«>77 08103 PAGE 26 
DZRKLE9PII aS^APR"-?? 12S27 COMMON TAGS 



1229 


001556 


006200 








6200 


1 " 100 


1230 
















1231 
















1232 
















1233 










1 FOLLOWING POINTERS ARE USED TO TRANSFER- CONROL TO THE 


1234 










t TEST 


SELECTED 


BY USING SW 8 • IF ANY MORE TESTS ARE 


1235 










; ADDED 


TO THIS 


PROGRAM ADDITIONAL POINTERS SHOULD BE INSERTED 


1236 


001560 


004262 






PTli 


TST1*2 




1237 


001562 


004626 






PT2I 


TST2*2 




1238 


001564 


005124 






PT3I 


TST3-S-2 




1239 


001566 


005614 






PT4I 


TST4t2 




1 240 


0157 


006622 






PT5I 


TST5+2 




1241 


001572 


007360 






PT6I 


TST6+2 




1242 


001574 


01 0440 






PT7 J 


TST7+2 




1243 


001576 


012176 






PTlOl 


TSTlO+2 




1244 


001600 


012740 






PTlll 


TSTll+2 




1245 
















1246 
















1247 










^MESSAGES & ASCII STRINGS 


1248 


001602 


005015 


044523 


0001 16 


MSGll 


.ASCIZ 


<15><12>/SIN/ 


1249 
















1250 


00161 


005015 


045523 


000105 


MSG2 1 


jASCIZ 


<1 5x1 2>/SKE/ 


1251 
















1252 


001616 


0050S5 


042524 


032123 


MSG3 1 


s ASCIZ 


<IS><12>/TEST # ABORTED : / 


1253 


016 2 4 


021440 


040440 


047502 








1 254 


001632 


052122 


042105 


000072 








1 255 
















1 256 


001640 


005015 


051120 


043517 


MSG4 1 


s ASCXZ 


<1 5><12>/PROG ABORTED/ 


1257 


001646 


040440 


047502 


0S2I22 








1258 


001654 


042105 


000 










1 259 
















1260 


001657 


015 


051012 


040505 


MSGS J 


«ASCIZ 


<15><12>/READ HDRS OK FROM CYLB ABOVE/ 


1 261 


001664 


020104 


0421 10 


051522 








1262 


001672 


047440 


0201 13 


051 106 








1263 


001700 


046517 


041440 


046131 








1264 


001706 


020102 


041101 


053117 








1265 


001 7 1 4 


000105 












1 266 
















1267 


001716 


054105 


041520 


042-124 


MSG6I 


.ASCIZ 


/EXPCTD HDR= / 


1268 


001724 


044040 


051104 


020075 








1269 


001732 


000 












1270 
















1 271 


001733 


040 


050040 


036503 


MSG7I 


«ASCIZ 


/ PCs / 


1272 


001740 


000040 












1273 
















1 274 


001742 


00501S 


047103 


051124 


MSGlOs 


sASClZ 


<15><12>/CNTRL PDY DIDN'T SET/ 


1275 


001750 


0201 14 


042122 


020131 








1276 


001756 


044504 


047104 


052047 








1277 


001764 


051440 


052105 


000 








1278 
















1279 


001771 


123 


041505 


051124 


MSGllj 


9ASCIZ 


/SECTR EXPC P-HDP RECV P-HDR/ 


1280 


017 76 


020040 


054105 


041520 








1281 


002004 


050040 


044055 


051104 








1282 


002012 


020040 


042522 


053103 








1283 


002020 


050040 


044055 


051104 








1 284 


002026 


000 
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,P1 1 26 


i'»APR-77 


12127 




COMMON 


TAGS 






1285 


















1286 


002027 


015 


051012 


053457 


MSG12I 


gASCIZ 


<15><12>"R/W/S 


1287 


002034 


051457 


051040 


054504 










1288 


002042 


047040 


052117 


051440 










1289 


002050 


052105 


000 












1290 


















1291 


002053 


040 


052040 


0S4522 


MSG13S 


, ASCIZ 


/ 


TRY #1/ 


1292 


002060 


021440 


000072 












1293 


















1294 


















1295 


002064 


005015 


051104 


053111 


MSG14: 


.ASCIZ 


<1S><12>/DRIVE 


1296 


002072 


020105 


000 












1297 


















1 298 


002075 


040 


020040 




BLNK13i 


.ASCII 


/ 


/ 


1299 


002100 


040 






BLNKIO: 


«ASCII 


/ 


/ 


1300 


002101 


040 






BLNKS9i 


.ASCII 


/ 


/ 


1 301 


002102 


040 






BLNKSSt 


.ASCII 


/ 


/ 


1302 


002103 


040 






BLNKS7I 


.ASCII 


/ 


/ 


1303 


002104 


040 






BLNKS6I 


.ASCII 


/ 


/ 


1304 


002105 


040 






BLNKS5S 


.ASCII 


/ 


/ 


1305 


002106 


040 






BLNKS4I 


, ASCII 


/ 


/ 


1306 


002107 


040 






BLNKS3I 


.ASCII 


/ 


/ 


1307 


002110 


040 






BLNKS2I 


, ASCII 


/ 


/ 


1308 


002111 


040 


000 




BLNKSl: 


.ASCIZ 


/ 


/ 


1309 


















1310 




002114 








.EVEN 






1311 


0021 14 


000000 






FDRIVEJ 









3312 


002116 


000000 






FDRVEll 









1313 


002120 


000000 






DRHOLDI 
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1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
13S2 
1353 
1354 
1355 
1356 
1357 
1358 
1359 

1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1359 



002122 
002124 
002126 
002130 



002132 
002134 
002136 
002140 



002142 
002144 
002146 
002150 



002152 
002154 



002156 
002160 



002162 
002164 
002166 
002170 



024334 
025500 
026334 

000000 



024373 
025300 
026334 

000000 



024407 
025300 
026334 

000000 



024423 
025300 



026334 
000000 



024441 

025S00 
026334 
000000 



,SBTTL ERROR POINTER TABLE 

f*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR, 

|*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

j#LOCATION SITEMB, THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT, 

l»NOTEii IF SITEMB IS THE ONLY PERTINENT DATA IS (lERRPC) . 

|»N0TE2S EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS! 



lERRTBl 



f ITEM 



J ITEM 



> ITEM 



J ITEM 



f ITEM 



EM 

DH 
DT 

or 



n POINTS TO THE ERROR MESSAGE 

n POINTS TO THE DATA HEADER 

n POINTS TO THE DATA 

n POINTS TO THE DATA FORMAT 



ERROR ITEMS TABLE 



EMI 
DHl 
DTI 





EM2 
DHl 
DTI 





EM3 
DHl 
DTI 





EM4 
DHl 



EMS 

DHl 
DTI 





fCNTRL RDY DIDN'T SET AFTER SEEK 

f PC RKCS RKER RKDS RKDA 

flERRPC SREGO IREGl $ReG2 $REG3 



f SIN ON SEEK 
fPC RKCS 
;$ERRPC 8REG0 



}DRE ON SEEK 
IPC RKCS 
ISERRPC SREGO 



RKER 

SREGl 



RKER 

IREGl 



J "ERR* ON SEEK 

fPC RKCS RKER 



>8EPRPC $REG0 $REG1 



RKDS 

IREG2 



RKDS 

SREG2 



RKDS 
$PEG2 



RKDA 

$REG3 



RKDA 

SREG3 



RKDA . 
SREG3 



> 'DRU' ON SEEK; PUT DRIVE ON 'LOAD' BACK TO 'RUN' 
IPC RKCS RKER RKDS RKDA 

itERRPC $REGO SREGi $REG2 $REG3 
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1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
139S 
1396 
1397 
1398 
1399 
1400 
1401 
1402 
1403 
1404 
140S 
1406 
1407 
1408 
1409 



14 

14 
14 
14 

14 
14 
14 
14 
14 
14 
1420 
1421 
1422 
1423 
1424 
i42S 



002172 
002174 
002176 
002200 



002202 
002204 
002206 
002210 



002212 
002214 
002216 
002220 



002222 

002224 



002226 
002230 



002232 
002234 
002236 

002240 



Q02242 
002244 
002246 
002230 



0022S2 
0022S4 
002236 
002260 



002262 
002264 
002266 



024510 
025500 
026334 
000000 



024S4S 
02SS76 
026330 
000000 



024364 
025576 
026350 
000000 



024615 
023653 



026366 
000000 



024633 
025376 
026330 
000000 



0246S3 
023730 
000000 

01S4S6 



024704 
09S767 
026330 
000000 



0247S7 
025750 
000000 



I ITEM 



fITEM 



pITEM 



EM6 
DHl 

DTI 




EM7 
DH7 
DT7 



10 

EMIO 
DH7 

DT7 




fIfEM 11 



EMU 
DHU 

Dfli 

■ 

12 

EM12 

DH7 
DT7 





jITEM 13 



EMU 
DHS3 


ESRil 



fITEM 14 



EM14 
DH14 
DT7 





I ITEM 15 



CYLINDER 

IREG4 



CYLINDER 

SREG4 



MSli 
DH13 




|R/W/S RDY NOT SET AFTER SEEK 

I PC RKCS RKER RKDS RKDA 

|$ERRPC SREGO $REG1 $REG2 $REG3 



|SIN ON WRITE FMf 

I PC RKCS RKER RKDS RKDA 

I 9ERRPC SREGO SREGl $REG2 SREG3 



I 'ERR* ON DOING WRITE FMT 

IPC RKCS RKER RKDS RKDA 

ISERRPC SREGO SREGl $REG2 $REG3 



|SIN ON READ FMT 

I PC RKCS , RKER RKDS 

IDRVI CYL SUR SEC 

ISERRPC SREGO SREG4 SREG2 

|$REG4 SREG5 $REG6 $REG7 



I 'ERR^ ON READ FMT 

IPC RKCS RKER RKDS RKDA 

ISERRPC SREGO SREGl REG2 $REG3 



I WRONG HEADERS FROM 'SEC # 
I SECTOR 9 HEADER RECVD 



f;USE THIS SUBROUTINE FOR TYPING OUT ERROR DATA 



I ERROR ON IMPLIED SEEK FROM CYLA TO CYLB 
IPC CYLA CYLB RKER RKDS TRY* 

ISERRPC SREGO SREGl SREG2 SREG3 SREG4 



I READ WRONG HDRS FROM CYLB ABOV 
)SEC» HEADER RECVD 



CYLINDER 

IREG4 
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1426 
1427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
143S 
1436 
1437 
1438 
1439 
1 440 
1441 
1442 
1443 
1444 
144§ 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
14S3 
1454 
1455 
1 456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 
1468 
1469 
1470 
1471 



002270 013364 



ESBIS |G0 TO ''ESRiS" FOR TYPING OUT 



fITEM 16 



002272 
002274 
002276 

002300 



002302 
002304 
002306 
002310 



002312 
002314 

002316 
002320 



002322 
002324 

002326 
002330 



002332 
002334 
002336 
002340 



002342 
002344 



002346 

002350 



025021 
026046 
026350 
000000 



02SI26 
026123 
026410 
000000 



025174 
O257S0 
000000 
015532 



025262 
025500 
026334 
000000 



025316 
025500 
026334 

000000 



025341 
025653 



026366 

000000 



EM16 
DH16 

0T7 





jITEM 17 



MS17 
DH17 
DT17 





I ITEM 20 



EM20 
DH13 



fITEM 21 



EM21 

DHl 

DTI 





EM22 
DHl 
DTI 




JITEM 23 



EM23 
DHli 



DTll 





;READ WRONG, FIRST WORD FROM SECTOR Q, 'CYLB» (ON IMPLIED SEEK FROM CYLA 
I PC CYLA CYLB EXPCT RECVD TRY# 

f $ERRPC SREGO 8REG1 8REG2 $REG3 $REG4 



f READ FIRST WORD FROM SECTOR 1, 'CYLB' ABOVE 
jPd CYLB EXPCT RECVD 

JSERRPC SREGO SREGl 8REG2 



I READ WRONG HEADER ON IMPLIED SEEK FROM 'CYLA' TO 'CYLB* 
> SECTOR 9 HEADER RECVD 



ESR20 fUSE THIS SUBROUTINE FOR TYPING OUT ERROR DATA 



JEROR ON DOING WRITE ON DSK 
J PC RKCS RKEP RKDS 

} 8EPRPC dREGO 3REG1 $REG2 



>SIN ON DOING WRITE 

I PC RKCS RKER RKDS 

JIERRPC SREGO SREGl $REG2 



I HE ON DOING READ 

IPC RKCS RKER RKDS 

jDRVf CYL SUR SEC 

fSERRPC $REGO 8REG1 3REG2 

;8REG4 SREG5 $REG6 $REG7 



RKDA 

$REG3 



RKDA 
8REG3 



1472 
1473 
1474 
1475 
1476 
1477 
147B 
1479 
1480 
1481 



002352 
002354 



002356 
002360 



025362 
026161 



026422 
000000 



fITEM 24 



EM24 
DH24 



DT24 





;CSE ON READ 

;PC TPYS 

IDRVS CYL 

ISERRPC IREGIO 

r$REG4 SREG5 



RKCS 
SUR 
SREGO 
$REG6 



RKER 

SEC 

8REG1 

8REG7 



MD«11»-DZPKL«E» RKU'-RKOS DYNAMIC TEST 
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MACYll 30(1046) 14"JUL«77 
ERROR POINTER TABLE 
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1482 
1483 

1 484 
1485 
1486 
1487 
1488 
1489 
1490 
1491 
1492 
1493 
1 494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
1502 
1503 
1504 
1505 
1506 
1507 
1508 
1509 
1510 
15U 
1512 
1513 
1514 
1515 
1516 
1517 

isie 



002362 
002364 
002366 
002370 



002372 
002374 



002376 
002400 



002402 
002404 



002406 

002410 



002412 
002414 
002416 

002420 



025376 
026266 
000000 
015620 



025440 
025653 



026366 

000000 



0254S6 
026161 



026422 
000000 



025473 
025500 
026334 
000000 



J ITEM 



JITEM 



25 










EM25 


IDATA ERROR ON 


READ FROM DISK 


ADDRESS 


DH25 


|WORD# EXPCT 


RECVD 


CYL 


SUR 




ESR25 


fUSE THIS ROUTINE FOR 


ERROR REPORTING 


26 










EM26 


;HE ON WRT CHK 








DHll 


J PC RKCS 


RKER 


RKDS 


RKDAl 




|DRV# CYL 


SUR 


SEC 




DTll 


fSERRPC SREGO 


SREGl 


IREG2 







|$REG4 SREGS 


IREG6 


8REG7 




27 










EM27 


f WRT CHK EROR 








DH24 


fPC TRY# 


RKCS 


RKER 


RKDS 




jDRV# CYL 


SUR 


SEC 




DT24 


JSERRPC SREGiO 


IREGO 


SREGl 


$REG2 




5$REG4 IREGS 


$REG6 


SREG7 





t ITEM 30 



EM30 

DHl 

DTI 





lERPOR 

J PC RKCS 

fSERRFC SREGO 



RKEP 

IREGI 



RKDS 

IREG2 



RKDA 
SREGl 
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DERKLEaPSl 2S»»APR^?7 t2t21 mWR POINTER f^BLE 



iTHIS IS THE HANDLER FOR UNEXPECTED TIME OUT^ PRESSING CONTINUE mhh 
f RESTART THE PROGRAM ^ 



003422 
002424 
00242S 
002430 
002434 

0024S4 
0024S4 
002456 
002460 



OltSOO 
00S740 
022626 
104401 
000407 



010046 
104402 
000000 



BJ^DTMOl MOV 
TST 



0024&2 OOOOOS 



002464 
002472 
002474 
002500 
002504 
O02Si2 
002514 
002S16 
002S20 
002S22 
002524 
002S26 
002530 



0O2S3O 
002534 
002536 
002542 
002544 

002550 
002SS6 
002S64 
002572 
002600 
002606 
002S14 



023737 
001016 
005077 
012700 
032777 
001006 
005001 
003301 
001376 
O0S300 
001367 
000000 



012706 
O0S026 
022706 
001374 
012706 

012737 
012737 
012737 
012737 
012737 
012737 
012737 



176764 
0OO2SO 
000200 



001100 

001140 

OOUOO 

017006 
000340 
017162 
000340 
022702 
000340 
023010 



©4$| 



000042 0000^6 



000020 
000022 
000030 
000032 
000034 
000036 
000024 



CMP 

TYPE 
BR 

MOV 

TXPOC 

HALT 



tSP5j.R0 ISAVE PC WHERE TIME OUT OCCURED 

CSPHf(SPH iRESTORE STACK POINTER 

#SS8 ijTYPE ASCIZ STRING 

641 ifGEf OVER THE ASCIZ 



R0,-CSP5 



STARTi RESET 

fpGIVE DRIVES TIME TO RELOAD HEADS IN CASE OF AN APT START 



|SET UP FOR TYPING OUT 
I GO TYPE OUT OCTAL PC 



fCLEAR THE BUS 



176740 20$| 



CMP 
8NE 
CLR 
MOV 
Bit 
BNE 
CLR 
DEC 
BNE 
DEC 
BNE 
HALT 



@#42y§#46 
STARTA 
®RKDA 
I2SO?RO 
#200*iRKDS 
5TARTA 
Rl 
Ri 

RO 
2QS 



STABTAi 

aSBTTL INITIALIZE THE COMMOM TAGS 
llCLEAR THE COMMON TAGS (SCMTAG5 AREA 

MOV 

CLR 

CMP 

BNE 

MOV 

ffXNITIALIZE 
MOV 
MOV 



fARE WE IN ACTil AUTO MODEf 
fNO, SKIP DELAY 
fSELECT UNIT 
iWAIT FOR^e 
f DRIVE READY^a 
5IN CASE., 
fOF APT.e 
jSTART, BUTs« 
|DON*T WAIT, a 
J FOREVER, 

|RKDS BIT 7 CDIRVE READY) «EVER SET 



jfFXRST LOCATION TO BE CLEARED 
ff CLEAR MEMORY LOCATION 



I JLOOP BACK IF NO 
ffSETUP THE STACK POINTER 



#iCMTAG?R6 
CR63* 

#SWR»R6 fiDONE? 

#STACK,SP 
FEW VECTORS 

SSSCOPE^i^IOTVEC nIOT VECTOR FOR SCOPE ROUTINE 
#340,9#I0TVEC*2 ilLEVEL 7 
MOV #SERRQR,i#EMTVEC jjEMT VECTOR FOR ERROR ROUTINE 

MOV #340»§#EMTVEC*2 ffLEVEL 7 

MOV #gTRAP,g#TRAPVEC ifTRAP VECTOR FOR TRAP CALLS 

MOV #340#i#TRAPVEC*2?LEVEL 7 

MOV #SPWRDN,@#PWRVEC IJPOWER FAILURE VECTOR 



002622 
002630 
002634 
002642 
0026SO 



002656 
002662 
002670 



012737 
005037 
112737 
012737 
012737 



013746 
012737 
012737 



000340 
001204 
000001 
002642 
0026i0 



000004 
002718 
177570 



000026 

001113 
OOU06 
OOlilO 



000004 
001140 



MOV 
CLR 
MOVB 
MOV 

MOV 

ffSIZE FOR A 
ffEQUAL TO A 
MOV 
MOV 
MOV 



; JLEVEL 7 

nCLEAR THE ESCAPE ON ERROR ADDRESS 
llALLOW ONE ERROR PER TEST 
n INITIALIZE THE LOOP ADDRESS FOR SCOPE 
IS SETUP THE ERROR LOOP ADDRESS 
HARDWARE SWITCH REGISTER^ IF NOT FOUND OR IT IS 
«»1 «, SETUP FOR A SOFTWARE SWITCH REGISTER, 
?»ERRVEC,"(SP) ifSAVE ERROR VECTOR 
#648* ?#ERRVEC ; jSET UP ERROR VECTOR 

#DSWR,SWR ; > SETUP FOR A HARDWARE SWICH REGISTER 



#340f §#PWRVEC+2 
8ESCAPE 
flrSERMAX 
#,#SLPADR 
,SLPERR 



.RKL«.Ej 


RKil-RKOS 


DYNAMIC 


TEST 


MACYll 


3OC10463 


14-JUL-77 08:03 PAGE 33 


ni 2S^APR^77 


12S27 




INITIALIZE THE 


COMMON TAGS 




002676 


012737 


177S70 


001142 




MOV 


#DDISP, DISPLAY 


J f AND A HARDWARE DISPLAY REGISTER 


002704 


022777 


177777 


176226 




CMP 


#-»l,@SWB 


II TRY TO REFERENCE HARDWARE SWR 


002712 


001012 








BNE 


66$ 


If BRANCH IF NO TIMEOUT TRAP OCCURRED 
















HAND THE HARDWARE SWR IS NOT s »l 


002714 


000403 








BR 


S5S 


> jBRANCH IF NO TIMEOUT 


002716 


012716 


002724 




64§S 


MOV 


#6S$, CSP) 


MSET UP FOR TRAP RETURN 


002722 


000002 








RTI 






002724 


012737 


000176 


001140 


65$i 


MOV 


ISWREGf SWR 


/ ; fPUINT TO SOFTWARE SWR 


002732 


012737 


000174 


001142 




MOV 


^DISPREG/DISPLAY 


002740 


012637 


000004 




66$2 


MOV 


(SP3*,f#ERRVEC 


If RESTORE ERROR VECTOR 


002744 


004737 


020622 






JSR 




? INITIALIZE THE TTY HANDLER 


0027S0 


023737 


000042 


00004S 




CMP 


§#42*@#46 


J ARE WE IN ACTll AUTO MODE? 


0027S6 


001416 








BEO 


691 


jYES# SKIP TITLE 










9SBTTL 


TYPE PROGRAM NAME 












11 TYPE 


THE NAME 


OF THE PROGRAM 


IF FIRST PASS 


002760 


00S227 


177777 






INC 




IjFIRSf TIME! 


002764 


001043 








BNE 


67S 


1 iBRANCH IF NO 


0O276S 


104401 


003024 






TYPE 


,68$ 


ffTYPE ASCXZ STRING 










sSBfTL 


GET VALUE FOR SOffWARE 


SWITCH REGISTER 


002772 


005737 


000042 






TSf 


g#42 


IfARE WE RUNNING UNDER XXDP/ACT? 


00277S 


001006 








BNE 


69S 


t jBRANCH IF YES 


003000 


023727 


001140 


0Q0I76 




CMP 


iWRylSWREG 


nSOFT^iARE SWITCH REG SELECTED? 


003006 


OOiOOS 








BNE 


70$ 


; » BRANCH IF NO 


003010 


104406 








GTSI^R 




nGEf SOFT«.SWR SETTINGS 


003012 


000403 








BR 


log 




003014 


112737 


000001 


00 11 34 


SfSi . 


MOVB 


#l#!SAUfOB 


F ?SET AUTO»M0DE INDICATOR 


003022 








70$l 








003022 


000424 








BR 


67$ 


J f GET OVER THE ASCIZ 










f f6@$l 


sASCIZ 


<CRLr>/RiCll DY 


NAMIC TEST/<15><12>/MAINDEC«11«'DZRKL«E/<CRLF> 


003074 








S7SI. 








003074 


10S7I7 


0012iS 




START! i 


fSTB 


rruNC 


;FUNCTION PROGRAM SELECTED? 


003100 


001404 








BEQ 


71 




003102 


10S037 


001216 






CLRB 


rruMc 


jYES, CLEAR THE FLAG 


003106 


000137 


023172 






JMP 




;G0 TO 'FUNTION SELECTION PROGRAM* 


003112 


012700 


00I23Q 




7$l 


MOV 


#XXDPMD»RO 


fCLEAR FLAGS FROM 


003116 


ioioto 






Sg| 


CLRB 


CR05* 


j*XXDPMD^ TO *DRIVAD* 


003120 


020027 


001232 






CMP 


R0»IDRIVAD*2 




003124 


001374 








BNE 


51 




003116 


012701 


177770 






MOV 


#^iO#Rl 




003132 


042720 


000003 




611 


BIC 


#3? C?!05«?' 


?CLEAR BIT O^S IN *DRIVE 


003136 


OOS20I 








INC 


m 


f PRESENT* FLAGSa 


003140 


001374 








BNE 


61 












ffHE rOLLOHIMG 


CODE finds OUT 


THE PROGRAM CONTROL MODEl 










1 PAPER 


TAPE CMjlNUAIjJ, ACfll* RKDP CHAIN OR DUMP 


003142 


122737 


000D02 


000041 




CMPB 


#a,4i 


1 LOADED FROM AN RK05 ? 


OOSiSO 


0O11SO 








BNi 


ST2 


;BR IF MOT 


003iS2 


013737 


O0OQ4O 


001220 




MOV 




iGET DEVICE INDICATOR AND DRIVE ADDRESS OF 
















^LOADING RK05 


003160 


122737 


000010 


O0Si20 




CMPB 


#10?XXDPMD 


1 DRIVE ADDRESS 7 OR LESS 1 


OOliSi 


i 01002 








BHI 


2S 


?BR IF YES 


003S70 


iOS037 


001220 






CLHB 


XXDPMD 


fDRIVE ZERO LOADED THE PROGRAM 


003174 


OOS737 


000042 




2§i 


TST 


42 


f CHAIN MODE OR ACTll AUTO ACCEPT ? 


003200 


001424 








BEQ 


31 


?BR IF MEIfHER 
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003202 


i A A A A 1 


003 2*1 0* 




TYPE 


»6SS 


nTYPE ASCIZ STRING 


1632 


003206 


A A /ii A < '3 

00041 J 








64$ 


jjGET OVER THE ASCIZ 


163 3 








1 $ 631 1 


a«r T7 

sASCIZ 


"ClSXia^/NOT TESTING DRIVE / 


16 34 


003236 














16 35 


003236 


A A£ A A £ 

OOau^o 








-CSP) 


ICLEAR WORD ON STACK 


16 36 


0032^0 


113716 


A A < "3 A 




MOVB 


XXDPMD? CSP) 


;GET DRIVE ADDRESS 


1637 


003244 


1 0440 3 






TYPOS 




fTYPE THE ADDRESS 


16 38 


003246 


OOi 








1 


jQNLY I CHARACTER 


1639 


00 3247 


000 











jSUPRESS LEADING ZEROS 


16 40 


003250 


000520 






BR 


ST2 


jGET NUMBER OF DRIVES 


1641 


003252 


005227 


177777 


3S 1 


INC 


#-1 


; FIRST TIME THROUGH HERE ? 


1642 


003256 


001115 








ST2 


jBR IF NOT FIRST TIME 


1643 


003260 


1 04401 


003266 




TYPE 


,67$ ' 


nfYPE ASCIZ STRING 




003264 


00041 1 








36$ 


jjGET OVER THE ASCIZ 










1 } 67 $ i 


» ASCiZ 


<15><SI2>/T0 TEST DRIVE / 




003310 






66$ 1 








e AT 


^ ^ ^ ! o 


A A S[ A A £ 








»CSP5 


;CLEAR WORD ON THE STACK 


AS 


003312 




001220 




MOVB 


XXDPMD, CSP) 


;GET DRIVE ADDRESS 




003316 


t A A ^ A ^ 






Iypos 




J TYPE THE DRIVE ADDRESS 




f f 


00 1 








I 


J ONLY 1 CHARACTER 




003321 


000 











jSUPRESS LEADING ZEROS 




003322 


1 n A A A 1 


003330 




TYPE 


f 69$ 


jjTYPE ASCIZ STRING 


1653 


003326 








BR 


68$ 


MGET over THE ASCIZ 


1654 








las 


a ASCIZ 


/ HALT PROGRAM, 


REMOVE RKDP PACK AND REPLACE IT/<15><12> 




003412 






eeS 1 








1656 


003412 




U U J « U 




E 


»71S 


; jTYPE ASCIZ STRING 


1657 


003416 


000435 






BR 


70$ 


f ;GET OVER THE ASCIZ 


1658 








} f 7 1$ i 


, ASCIZ 


/WITH A WORK PACK, CLEAR LOCATION 40, AND RESTART PROGRAM/ 


1659 


003512 






7 0$ J 








166 
















1661 
















166 2 


003512 


127 37 


002422 


000004 ST2 1 


MOV 


#BADTMO,ERRVEC 


fSET TIMEOUT VECTOR FOR 


166 3 














;UNEXPECTED TIME OUT 


1 664 
















1665 








THIS 


CODE FINDS WHICH DRIVES ARE PRESENT 6 PRINTS OUT THE DRIVE 


1666 








J DR I VEf 


NUMBERS 


THAT WERE FOUND 


ON LINE, 


1667 
















1668 


003520 


104401 


003526 




TYPE 


,65S 


; ;TYPE ASCIZ STRING 


1669 


003524 


0004U 






BR 


&4g 


; jGET OVER THE ASCIZ 


1670 








}|65$l 


.ASCIZ 


<1S><12>/DRIVES 


PRESENT/ 


1671 


355 






64$ } 








167 2 


00 355 


105037 


001 <sZ4 




CLBB 


DRIVS 


; INITIALIZE NO, OF DRVS PRESENT 


1673 


003554 


005001 






CLR 


Rl 




1674 


003556 


012702 


001232 




MOV 


SDRIVOf R2 




1675 


003562 


005003 






CLR 


R3 


.•INITIALIZE COUNT TO 


1676 


003564 


005737 


A A 4 ^ A 


i » 1 


TST 


XXDPMD 


; LOADED FROM AN RK05 ? 


1677 


J 5 7 


?i A 1 A A ^ 






BEQ 


6$ 


;BR IF NOT 




003572 




A A 1 '5 '5 A 




CMPB 


R3, XXDPMD 


^CHECKING THE LOAD DRIVE ? 


16 


003576 


00 






BEQ 


2& 


jBR IF YES 


1680 


003600 


010177 


175660 


6$> 


MOV 


RU?RKDA 


; ADRES A DRIVE 


1681 


003604 


105777 


175642 




TSTB 


iRKDS 


; IS IT PRESENT? 


1682 


003610 


100004 






BPL 


2$ 


>N0, BRANCH 


1683 


003612 


105237 


001224 




INCB 


DRIVS 


; INCREMENT TOTAL « OF DRVS 


1684 


003616 


052712 


000001 




BIS 


#1» CR2 3 


;SET FLAG INDICATING THIS DRV PRSNT 


1685 


003622 


005722 




2S! 


TST 


CR2)* 




1686 


003624 


005203 






INC 


R3 


; INCREMENT COUNT 
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1687 


003626 


062701 


020000 




ADD 


#20000, Pi 


;ADPES THE NXT DRV 




1688 














JCHKD ALL 8 DRIVES? 




1689 
1690 


003632 


001354 






BNE 


1$ 


J IF NOT, GO CHK IF NEXT DRV 


PRSNT 


1691 


003634 


004737 


024250 




JSR 


PCiSIZEF 


;FIND WHICH ARE FS 




1692 


003640 


105737 


001224 




TSTB 


DRIVS 


J WERE ANY DRIVES FOUND? 




1693 


003644 


001010 






BNE 


31 


; YES, BRANCH 




1694 


003646 


104401 


003654 




TYPE 


,6?S 


J f TYPE ASCIZ STRING 




1695 


003652 


000403 






BR 


66g 


J jGET OVER THE ASCIZ 




lb9b 








f f67$l 


.ASCIZ 


/ NONE/ 






1697 


003662 






66$! 










169a 


003662 


000137 


015246 




JMP 


8E0P 


; IF NONE WERE FOUND, GO 




1699 














ITO THE END OF PROGRAM 




1700 


003666 


005002 




3$! 


CLR 


R2 


;DRIVE NUMBER 




1701 


003670 


012700 


001232 




MOV 


SDRIV0»R0 


; TABLE OF AVAIL DRIVES 




1702 


003674 


10S710 




5S| 


TSTB 


(RO) 


jDRIVE HERE? 




1703 


003676 


001414 






BEG 


4$ 


?N0 




17 04 


003700 


104401 






TYPE 








1705 


003702 


001213 






8CRLF 








1706 


003704 


010246 






MOV 




;PUSH NO ON THE STACK 




1707 


003706 


104403 






TYPOS 




;T0 TYPE OCTAL NO, 




1708 


003710 


001 






^BYTE 


1 


jTYPE 1 DIGIT, SUPRESS LDG 


O'S 


1709 


003711 


000 






,BYTE 









1710 


00 3712 


032710 


000002 




BIT 


#2i, (RO) 


;IS IT RK05F? 




1711 


003716 


001404 






BEQ 


41 


;N0 




1712 


003720 


104401 


00372;fe 




TYPE 


f 69S 


;)TYPE ASCIZ STRING 




1711 


003724 


000401 






BP 


68§ 


J iGET OVER THE ASCIZ 




1714 








f I69S5 


«ASCIZ 


/F/ 






1715 


003730 






6311 










1716 


003730 


0OS202 




4$l 


INC 


R2 


fPOINT TO NEXT DRIVE # 




1717 


003732 


005720 






TST 


(P0)4- 


jNEXT DRIVE IN TABLE 




1718 


003734 


020027 


001251 




CMP 


R0,#DRIV7*1 


;ALL DONE? 




1719 


003740 


002755 






BLT 


Si 


>N0, CHECK REST 




1720 


















1721 








{FIND OUT THE 


FIRST (FROM 0«7) 


DRIVE THAT IS PRESENT, PUT 


THE ADDRESS 


1722 








fOr THAT DRIVE 


IN 'DRIVAD' 8 INDICATE THAT DRIVE « WILL 




1723 








|BE TESTED 8 








1724 


















1725 


003742 


012737 


001232 001226 


ST3I 


MOV 


»DRIV0,DRVPTR 






1726 


003750 


105037 


001223 




CLRB 


DRVDON 






1727 


003754 


005037 


001230 




CLR 


DRIVAD 






1728 


003760 


105037 


001102 


NXTDRVl 


CLBB 


8TSTNM 


; RESET TEST NUMBER TO 1 




1729 


003764 


005037 


001112 




CLR 


$ERTTL 


fCLEAR ERROR COUNT FOR THIS 


DRIVE 


1730 


003770 


013701 


001226 




MOV 


DRVPTR,R1 






1731 


003774 


032721 


OOOOOl 


Hi 


BIT 


«1, (Rl)+ 


lis THIS DRIVE PRESENT? 




1732 


004000 


001005 






BHE 


2S 


lYES, BRANCH 




1733 


004002 


020127 


001252 


411 


CMP 


Ri,#DBX¥7*2 


fCHECKED THE WHOLE LIST? 




1734 


004006 


001372 




BNE 


i$ 


;N0 




1735 


004010 


000137 


015246 




JMP 


8E0P 


;YES, EXIT 




1736 


004014 


010137 


001226 


2IS 


MOV 


Rl,DRVPTR 


J NO, GO AHEAD 




1737 


004020 


014104 






MOV 


«'CRi)»R4 


fGET DRIVE NOe TO BE TESTED 




1738 


004022 


005037 


002116 




CLR 


FDRVEl 






1739 


004026 


005037 


0021H 




CLP 


FDRIVE 


ISHOWS F IF -^l 




1740 


004032 


032704 


000002 




BIT 


#2,R4 


?RK«OSFf 




1741 


004036 


001410 






BEQ 


7S 


|N0 




1742 


004o40 


005237 


002116 




IHC 


FDRVEl 


1 SHOWS F 
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004044 


032704 


oaoooo 






BIT 


#20000*R4 


lEVEN DRIVE! 


0040S0 


001003 








BNE 


78 


|N0 


004052 


012737 


177777 


0Q2il4 




MOV 


S^ifFDRIVE 


iRKOSr AND EVEN 


004060 


042704 


000003 




7SS 


BIC 


#3,R4 




0040§4 


010437 


001230 






MOV 


R4,DRIVAD 


;SET UP DRIVE- ADRES 


004070 


104401 


0020S4 






TYPE 


*MSGI4 




004074 


000241 








CLC 
















ROli 


R4 


J TYPE OUT THE DRIVE NO , 


004100 


006104 








ROL 


R4 




004102 


006104 








ROL 


R4 




004104 


00S104 








ROL 


R4 




004106 


010446 








MOV 


R4*'«CSP3 




004110 


104403 








TYPOS 






004112 


001 








9BYTE 


1 




004113 


000 








sBYTl 







004114 


OOS737 


002116 






TST 


FDRVEi 


f RK«»03ri 


004l20 










BEQ 


6$ 


|N0 


004122 


104401 


004130 






TYPE 




If TYPE ASCIZ STRING 


004126 


000401 








BR 


S4S 


f f GET OVER THE ASCIZ 












sASCIg 


/f/ 




004132 








S4SI 








004132 








S$S 
















iir sw 


8 IS ,SET 


THEN FIND OUT WHICH TEST NUMBER IS 










1 SELECTED AND JUMP TO THAT TEST 




004132 


10S037 


001222 






CLRB 


LUPSW 


>CLEAR FLAG INDICATING SW8 SET 


004136 


032777 


000400 


174774 




BIT 


#SW8*fSWR 


;SW 8 SET? 


004144 


O0I44S 








BEQ 


TSTI 


;N0, BRANCH 


004146 








Sli 








004146 


104401 


004154 






TYPE 




; iTJfPE ASCIZ STRING 


0041S2 


000410 








BR 


660 


MGET over THE ASCIZ 










f fS7IS 




<1S><I2>/0CTAL 


TESTS?/ 


004174 
















004174 


104412 








RDOCT 






004176 


012600 








MOV 


fSP)'^,BO 




004200 


001762 








BEQ 


3$ 




004202 


020027 


000011 






CMP 


RO,#ll 


? CHECK TYPED IN TEST « 












BGT 


S$ 


lis LEGAL, IF NOT ASK 


004210 


110037 


001102 






MOVB 


ROjSTSTNM 




004214 


OOS300 








DEC 


RO 


;FORM POINTERS FOR THE TEST « 


004216 


006300 








ASL 


RO 




004220 


016037 


001560 


OOllOS 




MOV 


PTi(RO},SLPADR 


; ADJUST POINTERS FOR SCOPE 


004226 


013737 


001106 


OOiUO 




MOV 


SLPADRiSLPERR 


;LODP, ETC , 


004234 


105237 


001222 






INCB 


LUPSW 


;SET FLAG INDICATING TEST # 
















; SELECTED 


004240 


000177 


174S42 






JMP 


ilLPADB 


J GO TO THE TEST SELECTED 



|0N RECOVERY FROM pOtelER FALIURE RETURN HERE 



004244 005000 PWRFL: CLR RO 

004246 OOSOOl CLR Ri 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 



004250 
004252 

0042S4 
004256 



005201 
001376 

105200 
001374 



INC 
BNE 
INCB 
BNE 



Rl 
1$ 
RO 
II 



j^^TEST 



1 CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY 

r»THIS TEST PERFORMS 200(8) PURE SEEKS FROM CYLINDER 
l»TO CYLINDER 312 AND BACK TO 0, IT IS SUPPOSED TO 
r*CHECK THE INNER LIMIT SWITCH AND THE MECHANICAL 
|«INTEGRITY OF THE DRIVE, NOTE THAT A VISUAL CHECK FOR 
I ANY MECHANICAL FAILURES WOULD BE VERY HELPFUL, 



004260 


000004 






TSTll 


SCOPE 




004262 


005000 








CLR 


RO 


004264 


005001 








CLR 


Rl 


004266 


005002 








CLR 


R2 


004270 


012737 


004322 


OOIUO 




MOV 


#20$,$LPERR 


004276 


012703 


00S2SS 






MOV 


8BUFR,R3 


004302 


012704 


177767 






MOV 


#«UrR4 


004306 


01270S 


177770 






MOV 


i«»lO#R5 


004312 


000402 








BR 


as 


0043H 


00S703 






l$i 


TST 


R3 


004316 


001403 








'BEQ 


3$ 


004320 


00S003 






211 


CLR 


R3 


004322 


i044lS 






20Si 


CON, RESET 


004324 


104416 








DRV^RESET 


004326 


013777 


001230 


I7S1S0 


3SI 


MOV 


DRIVAD,fRKDA 


004334 


050277 


171124 






BIS 


R2,@RKDA 


004340 


10S777 


17S10S 






TSTB 


iRKDS 


004344 


100406 








BMI 


2l!| 


004346 


004737 


Oi§lS2 






JSR 


PC,Gf4RG 


O043S2 


104030 








ERROR 


30 


004354 


OOS203 








INC 


R3 


004356 


005205 








INC 




004360 


OOISIS 








BEG 


11 


004362 


012777 


OOOOII 




2111 


MOV 


«llr9RKCS 


004370 


OOS200 






4li 


INC 


RO 


004372 


001007 








BNE 


ss 


004374 


004T37 


01S1S2 






JSR 


PC,Gf4RG 


004400 


104001 








ERROR 


1 


0D4402 


00S203 








INC 


R3 


004404 


00S304 








IHC 


M 


004406 


001502 








BEQ 


iss 


004410 


000403 








BR 


6$ 



OF SEEKS 



INITIALIZE COUNT 
INITIALIZE COUNT FOR 
CONTAINS SEEK ADRES 
SET RETURN ADRES FOR LUPING 
ON ERROR 

INITIALIZE POINTER TO THE TABLE 

ALLOW ONLY 9 CNTRL-RDY, SIN, OR R/W/S ROY ERORS 
ALLOW ONLY 8 DRU+DRE+ERR+DRY ERRORS 



WAS THERE ANY ERROR? 
NO, BRANCH 
CLR EROR FLAG 

GO DO CNTRL RESET, SUB ROUTINE 
AT 'CNT.RST' 

GO TO *DRV.RST* £, DO DRV RESET 

ADRES THE DRIVE 
SET SEEK ADRES 
DRIVE RDY? 
YES 

NO, GET RKCS, ER, DS, DA 
DRIVE RDY BIT IS NOT SET 
IN RKDS 

SET ERROR FLAG 

ALLOW ONLY 5 ERORS, IF MORE 

ABORT 

GO, SEEK 

WAIT FOR CNTRL RDY 

WAITED LONG? 

ir YES, ERROR 

GO, GET RKCS, ER, DS, DA 

CNTRL RDY DIDN'T SET AFTER 

SEEK WAS DONE TO CYLINDER 

SHOWN IN RKDA, GO TO 'RKU LOGIC TESTS' 

SET ERROR FLAG 

EXIT THIS TEST IF THERE R 5 OR MORE ERRORS 
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004412 


10S777 


171^40 


1856 


004413 


100364 




1857 








iSSS 


004420 


OOSOOO 




1859 


004422 


032777 


000100 


i860 


004430 


001 10 




1861 


004432 


005200 




1862 


004434 


001372 




1863 


004436 


004737 


0161S2 


1864 


004442 


1 04006 




i 86S 








1866 


A n A A A A 


005203 




1867 


004446 


O0S204 




1868 


004450 


00146 1 




i 869 


0044^2 


32777 


001000 


1870 


004460 


001406 




1871 


004462 


004737 


016162 


187 2 


004466 


104002 




1873 








1874 


004470 


005203 




1875 


004472 


005204 




1876 


00447 4 


001447 




1877 


004476 


005777 


174732 


1878 


004502 


100006 




1879 








1880 


004504 


004737 


016162 


1881 


004510 


104003 




18 8 2 
1883 


00451 2 


005203 




188 4 


004514 


005205 




1885 


0045 1 6 


001767 




1886 








1887 


004S 20 


005777 


1747 32 


1888 


004524 


100006 








0047 37 


ni fit 65 


18^0 


004^32 


1 04004 




1891 








1892 








1893 


004534 


005203 




1894 


004536 


005205 




18 95 


n n d K & A 
u U D t u 


001 425 




18 96 








1897 


004542 


032777 


002000 


1 898 


OO45SO 


001406 




1899 


0045S2 


0047 37 


016162 


1900 


004^56 


1 04005 




1901 








1902 








1903 








1904 








1905 








1906 








1907 








1908 


004560 


005203 




19 09 


004562 


005205 




1910 


004564 


001413 





173032 



174772 7Sl 



174702 12SI 



TSTB 


fRKCS 


jDID CNTRL RDY SET? 


BPL 


4S 


fIF NOT WAIT FOR IT 


CLR 


RO 


; INITIALIZE COUNT 


BIT 


# 1 00 # SRKDS 


iR/W/S'RDY SET? 


BNE 


7S 


1 YES 


INC 


RO 


fWAIT FOR R/W/S RDY 


BNE 






JSR 


PC»GT4RG 


J GET RKCSf ER» DSt DA 


ERROR 


§ 


; R/W/S RDY DID NOT SET WHEN SEEK 






jWAS DONE TO CYLINDER INDICATED IN 


INC 


R3 


f SET ERROR FLAG 


INC 


R4 ' 


J IF MAXM EROR COUNTj ABORT 


BEQ 


18$ 




BIT 


# 1 000 # §RKDS 


|SIN ERROR? 


BEQ 


8$ 


f NOr BRANCH 


JSP 


PC,GT4RG 


jGO, GET RKCS, ER, DS, DA 


ERROR 


2 


jSIN ERROR? ON DOING SEEK TO 






fCYL AS SHOWN IN RKDA 


INC ' 


R3 


?SET ERROR FLAG 


INC 


R4 


f IF MAXM EROR COUNT REACHED? 


BEQ 


i8§ 


; ABORT THE TEST 


TST 


@RKER 


fDRE ERROR? 


BPL 


10$ 


?N0* BRANCH 


JSR 


PC,GT4RG 


; GO? GET RKCS? ER? DS? DA 


ERROR 


3 


jDRE ON DOING SEEK TO CYLINDER 






J AS SHOWN IN RKDA 


XNC 


R3 


• SET ERROR FLAG 


INC 


RS 


J IF MAXM EROR COUNT REACHED? 


BEQ 


@$ 


f ABORT THE TEST 


TST 


8RKCS 


; ' EPR ' BIT IN RKCS SET? 


BPL 


12$ 


J NO? BRANCH 


JSR 


PC,GT4BG 


;G0? GET RKCS? ER? DS, DA 


ERROR 


4 


; 'ERR' IN RKCS SET? ON DOING SEEK 














INC 


B3 


• SET ERROR FLAG 


INC 


R5 


J IF MAXM EROR COUNT REACHED? 


BEQ 


18S 


; ABORT THE TEST 


BIT 


S2000ff @RKDS 


;DRU SET? 


BEQ 


1S$ 


;N0? BRANCH 


JSR 


PC,GT4RG 


;G0? GET RKCS? ER, DS? DA 


ERROR 


5 


jDBU SET, THIS IS AN IRRECOVERABLE 



INC 
INC 

BEQ 



R3 
R5 

18$ 



JERROR, HENCE PUT THE DRIVE ON 

;LOAD, BACK TO RUNg DRU ERROR 

f SHOULD BE CLEARED? IF IT IS NOT 

; 1 ) THE HEAD POSITION TBANSDVCER LAMP 

; IS INOPERATIVE 

;2) OR ERASE OR WRT CURRENT PRESENT 

fWITHOUT 'WRT GATE' 

J SET EROR FLAG 

; ALLOW ONLY 5 ERRORS 

; IF MORE THAN 5 
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1911 








1912 








1913 


004566 


005702 




1914 


004570 


001402 




1915 








1916 


004572 


005002 




1917 


004574 


000647 




1918 








1919 


004576 


012702 


014500 


1920 








1921 


004602 


005201 




1922 


004604 


022701 


000200 


1923 








1924 


004610 


001241 




1925 


004612 


000404 




1926 








1927 








1928 


004614 


104401 


001640 


1929 


004620 


000137 


015224 


1930 








1931 








1932 








1933 








1934 








1935 








1936 








1937 








1938 








1939 








1940 








1941 








1942 








1943 








1944 








1945 


004624 


000004 




1946 


004626 


013737 


001230 


1947 


004634 


OOS737 


002114 


1948 


004640 


001003 




1949 


004642 


005737 


002116 


1950 


004646 


001125 




1951 


004650 






1952 


004650 


012702 


177152 


1953 


004654 


012703 


177764 


1954 


004660 


012701 


177773 


1955 


004664 


012705 


177773 


1956 


004670 


013704 


001230 


1957 


004674 


104415 




1958 


004676 


104416 




19S9 


004700 


005000 




1960 








1961 


004702 


005777- 


i74SS0 


1962 


004706 


100001 




1963 








1964 


004710 


10441S 




1965 








1966 


004712 


O0S046 





CHECK INNER LIMIT SWITCH & ELECTROMECHANICAL INTEGRITY 
I GO TO THE END OF THE PROGRAM 



TST 

BEQ 



CLR 
BP 



INC 
CMP 



BNE 

BR 



TYPE 
JMP 



R2 
16$ 



R2 

1$ 



Rl 

#200#R1 



1$ 

TST2 



?MSG4 
TST12 



; WAS SEEKING TO OP 312? 
I TO 0? BRANCH 
I TO 312? 

JSEEK NXT TIME TO 

;G0 BAK & SK TO 

;SEEK NXT TIME TO 312 
;DONE SEEKS 200 TIMES? 



; IF NOT? GO BAK 

I f EXIT 



|#TEST 2 FORMAT THE DISK 

|*THIS PROGRAM ASSUMES AN UNFORMATTED DISK AND ITS 
I«F0RMATTING IS DONE IN THIS TEST. A SECTOR IS FORMATTED 
f «AT A TiMEe THE FIRST OWRD OF EVERY SECTOR IS WRITTEN 
f ♦TO BE A PSUEDO-HEADER CONTAINING THE DRIVE #, CYLINDER 
;«S? SURFACE AND SECTOR #, .THE FOLLOWING IS CHECKED 
l»l, 'SIN* IF 'SIN* OCCURS? A DRIVE RESET IS DONE 
f#AND THE SAME SECTOR IS FORMATTED AGAIN, THREE 
j#RETRIES ARE DONE BEFORE AN ERROR MESSAGE IS PRINTED* 
l«2» *ERR' ON FINDING THAT THE ^ERR* BIT SET, RKER 
fttSCANNED TO FIND OUT WHAT CAUSED IT AND THE 
}«ERROR IS REPORTED, 



002120 



TST2 8 



SCOPE 

MOV 

TST 

BNE 

1ST 

BNE 

MOV 
MOV 
MOV 
MOV 
MOV 



CON9RESET 
DRV, RESET 
CLR RO 



DRIVAD?DRHOLD 

FDRIVE 
ii$ 

FDRVEl 
TST3 

S«»'626?R2 

S^SjRI 
I^SjRS 
DRIVAD?R4 



TST 
BPL 



©RKCS 
31 



CON^RESEf 
CLR ««CSP5 



I SAVE DRIVE NUMBER 

JSEE If EVEN HK«»OSr DRIVE 
J YES 

>ODD RK«05F7 

>D0 NOT FORMAT IF ODD RK»05F 

;203 CYLINDERS? (406 TRAKS) 
112 SECTORS 

; ALLOW ONLY S 'SIN' ERRORS 
f ALLOW ONLY 5 'ERP'S 
; STORE ADRES OF DRIVE, 

iGO TO *DR»RST' & DO DRIVE RESET 

jKEEP COUNT OF 'SIN' ERORS 

J ALLOW 3 RETRIES ON SIN 

?ERR? 

f NO 

|G0 TO ^CN-^RST* S DO CONTROL RESif 
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i967 


004714 


012748 


004722 






MOV 






I960 


004720 


000002 








RTI 




fSET PRIORITY TO ZERO 


1969 


004722 


010437 


026446 




111! 


MOV 


R4,0UTBUF 


$miTE THIS WORD 


1970 


004726 


012777 


026446 


I74S2® 




M0¥ 


#OUTBUF,|RKBA 


fFROM THIS ADRES 


1971 


0047 34 












R4 ^ @RKD A 




197 2 








1 7 4S 1 2 




MOV 






197 3 




ft? OT'IT 


00467 4 


001 S 1 




MOV 






1974 
















sfillPTNfl ON P'BSnH 


1976 




012777 


002003 


i 74474 




MOV 






1978 




1 04421 








CON RDy 






1979 




032777 


U V A U U U 


i 74460 


S $ 1 


BIf 






1980 




00141 3 








8EQ 


6$ 






004774 










JSR 


PCGTSRG 


»fln. RPT HKrs. nil rvi.TmnPQ 

J \3\J f VJE<1 nAWu; C'Ky UtS# VSU£I«yC)f\ 


1982 


fifx^ A no 
V va u w V 


1 04007 








ERROR 


7 




198 3 
















jWtN* S! ft I U" vIUXiiiMBiH HO 


1984 
















r INDICATED IN RKDA^ 3 RETRIES 


198S 
















pARE DONE 


1986 
















fNOTE THAT BEFORE 


1987 


w U3 U w 


! 0441S 








CON^BESEf 


•RETRYING A DRIVE RESET WAS DONE 


198@ 


O0SOO4 


104416 








DRVjRESET 


J GO TO ^DR^^RST* & DO DRV RESET 


1989 


QOSOO§ 


00S200 












f INCRMNT SIN COUNT 




005 1 




U V UU U ^ 






CMP 


# 3 y HO 




1991 


0§ 1 4 










BNE 


1 14'2 


, T r WDT. fin £. RPTR V 


I 992 
1993 


U 3 i O 


00S20 1 








INC 


Rl 


• ALLOW ONLY 12 SIN ERRORS 


















» TF MODP TH 4 N ^ r v T T THTe TircT 
r X r Munt- i fiM f 3 c. a 1 1 1 n 1 o i Co x 




005020 










BEQ 


91 , 


fir nun t inwn 3 c A J. 1 inXo i do i 




05 2 2 


00S777 








TST 


§RKCS 




1 QQ"? 


05 2 6 


i A Aft AS 

J. uuuy a 








BPh 


71 




1998 


005o30 










JSR 


PC^GTSRG 




1 999 


005034 


1 04010 








ERROR 


10 


f 'ERR* OCCUPED WHILE DOING 




















20y i 


















2002 


00S036 


00S20S 








INC 


RS 


{ALLOW ONLY 5 'ERR'S, IF 


2003 


00S040 


001426 








BEQ 


91 


;MORE THAN 5 EXIT THIS TEST 


2004 


U U -3 U ^ 








7S t 


INC 


R4 


; INCRMNT DISK ADRES TO NXT SCTR 


200S 


005o44 


00S203 








INC 


R3 


; ALL 12 SECTORS DONE? 


2006 


005046 


001314 








BNE 




J IF NOT, GO BAK & FMT NXT SCTR 


















. jf YES 




A A K A ^ A 


012703 


177764 






MOV 


#^14#R3 


• H F S F T rniJWT FOR 1 CFTTriRt! 


2009 


005 S 4 


042704 


u V y u i / 






BIC 


#17f R4 


. r f,R niiT sFr R T T<; 




U U J 08 V 


„„ 


fi {\ e% 1 0i 

V U U U fi u 






ADD 


#20*R4 


• fi D HF ^ TH F NXT TQ LK Tn R FMTFD 


20 1 i 


00506 4 


OOSZOi 








INC 


R2 


, a I.I. TBRIfS FM TFn •> 
f MSJlj IKftrviS rmiE.Uj 




OOS Qoo 










BNE 


10 


« T F unT CCt HfiJf R PUT M Y T r* VT Clio n 
Sir 1' U i uU OMf\ B r M 1 N A i L X u , OUK U 


20S 4 


0O5O7O 


00S237 


002114 






INC 


FDRIVE 




2015 


005074 


001004 








BNE 


lOS 


• NO 


2016 


005076 


062737 


020000 


001230 




ADD 


#20000, DBIVAD 


J FORMAT ODD DRIVE OF F 


2017 


005104 


000661 








BR 


HI 




2018 


O0S1O6 


013737 


002120 


001230 


loss 


MOV 


DRHOLDyDRIVAD 


; RESTORE DRIVE ADDR 


2019 


005114 


000402 








BR 


TST3 


nEXIT 


2020 


















2021 


005116 


004737 


016772 




981 


JSR 


PC» ABRT 




2022 
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2023 








2024 








2025 








2026 








2027 








2028 








2029 








2030 








2031 








2032 








2033 








2034 








203S 








2036 








2037 








2038 








2039 








2040 








2041 








2042 








2043 








2044 








204S 








2046 








2047 








2049 








2049 








2050 


00S!22 


000004 




20S1 








2052 


00S124 


012737 


177773 


20S3 








2054 


00S132 


012737 


177766 


2055 


00SI40 


012737 


177773 


205S 


0OS14S 


013703 


001230 


2057 


OOS 152 


012737 


177152 


2058 


0OS16O 


10441S 




2059 


00S162 


104416 




2060 








2061 


005164 


00S037 


0OI2S4 


2062 


0OS|7O 


005037 


00t2S2 


2063 








2064 


005174 


012777 


026446 


2065 


00S202 


0I0S77 


1742SS 


2066 


00S206 


012777 


1777S4 


2067 


00S214 


012737 


OOS160 


2068 








2069 


00S222 


012777 


002Q0S 


2070 








2071 


005230 


104421 




2072 








2073 


00S232 


032777 


001000 


2074 


001240 


001420 




207S 


005242 


004737 


016214 


2076 








2077 


005246 


104011 




2078 









j#TEST 3 READ FORMAT OF THE DISK 

IN THIS TEST, THE HEADERS FROM ALL THE SECTORS ARE READ 
S. CHECKED IF THEY ARE CORRECT, THE FOLLOWING IS THE 
TEST SEQUENCE, 

1, READ 12 SECTORS CHDRS ONLY) AT A TIME 

2, IF THERE IS A "SIN' ERROR RETRY ONCE MORE, IF SAW AGAIN 
REPORT ERROR & READ HEADER FROM NEXT CYLINDER 
3e IF THERE IS 'ERR'' IN RKCS, DO A CONTROL RESET, REPORT 
ERROR & READ HEADER FROM NEXT CYLINDER, IF THERE ARE 
MORE THAN 5 ERRORS OF THIS KIND, THIS TEST WILL BE EXITED 
4, THE 12 HEADERS ARE CHECKED, IF THEY ARE CORRECT THE 
NEXT CYLINDER IS READ, 

IF THEY ARE NOT CORRECT, A RETRY IS DONEj IF AGAIN CORRECT 
HEADERS ARE NOT RECIEVED, AN ERROR IS REPORTED, THE 

SECTOR #'S GIVING THE BAD HEADERS, & THE BAD HEADERS ARE 
STORED, 

5« IF INHIBIT TYPEOUT' SWITCH IS NOT SET, THE FIRST WORDS OF 
THE 12 SECTORS (PSUEDO«HEADERS) ARE READ. IN A PREVIOUS 
TEST THE FIRST WORD OF EVERY SECTOR WAS WRITTEN 
AS A SOFTWARE HEADER (CONSISTING OF DRIVE #, CYL«, SUR,S£C«} 
THEN THE SECTOR # GIVING BAD HEADER, EXPECTED PSUEDO«HEADER, 
& THE PS^HEADER RECIEVED ARE TYPED OUT, THIS WOULD 
WRONG, HEADER WAS RgAD WRONG, ETC, 

69 THE NEXT CYLINDER IN LINE IS READ. ORDER OF READING IS 
CYL0,SUR0 CYL0,SUP1 - CYL312,SUR1 



f f« 

TST3i 



00IS06 

oolsio 



001476 



174260 311 



174244 
OOlllO 



S74226 



SCOPE 






MOV 




S^'SffERCNTl 


; ALLOW ONLY 5 ERRORS (OF BAD HEADER 








;KIND FROM 5 CYLINDERS) 


MOV 




#«i2,ERC?IT2 


; ALLOW ONLY 12 'ERR'S 


MOV 




S«=S#ERCNT3 


J ALLOW ONLY 5 ERRORS 


MOV 




DRIVAD,R5 


fSET DRIVE #,C¥L ADRESsO 


MOV 




#«»S2S,INDX2 


|313 CYLS C626 TRAKS) TO B READ 


CON 


RESET 


;G0 DO CONTROL RESET 


DRV 


RESET 


|G0 DO DRIVE RESET 


CLR 




RETRY2 


> ALLOW 2 RETRIES IF HDRS READ WRONG 


CLR 




RETRY! 


jALLOW 2 RETRIES FOR 'SINS* 


MOV 




#9UTBUF,@RKBA 


JRD HDRS INTO LOC STARTING AT THIS 


MOV 




RSjSRKDA 


fFROM THIS DSK ADRES 


MOV 




#«14,|RKWC 


; 12 HDRS TO BE READ 


MOV 




#4|,SIiPERR 


ySET RETURN ADRES FOR LURING ON ERROR 


MOV 




#200S#iRKCS 


;G0, RD FMT OF THIS CYLINDER 


CON 


RD¥ 




IWAIT FOR CNTRL RDY TO SET 


BIT 




#i000ff§RKDS 


; 'SIN' ERROR? 


BEQ 




6$ 


jNO, BRANCH 


JSR 




PCyGETINF 




ERROR 


11 


1 'SIN' OCCURED WHEN DOING RD FMT 



I FROM CYL SHOWN IN RKDA, 
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2079 


00S250 


1 0441S 








CON. RESET 


|D0 CMTRL RESET 


2080 


00S2S2 


104416 








DRV, RESET 


• QO, DO DRIVE RESET 


2081 


00S254 


005237 


0012S2 










fALLOW ONLY 2 RETRIES FOR THIS ERROR 


2082 




0227 37 


u V V ^/ y <fi 


001252 






§2 1 RETBYl 


J IF TRIED 2 TIMES REPORT 


208 3 


005 266 


001 342 










3$ 


jERPOR* OTHERWISE GO BAK 6 RETRY 


2084 
















fWAS TRIED TWICE? BUT *SIN'e 




V P 2 ' 


005237 


fin 1 ^ 1 f) 






INC 


ERCNT3 


f ALLOW 5 ERRORS AT MOST 


2086 




001002 








BNE 


68 




208 7 




0001 37 


003306 






JMP 


16S 




2088 






















005777 


174130 




61 i 


TST 


0RKCS 




onQn 


S 3 D 


A U V U 4 U 








BPL 


78 


jNOjF BRANCH 


2091 




0047 37 


IS 1 36 






JSR 


PCCTSRG 


fGO> GET RKCS* ER#DSy DA; CYLNDR 


2092 




104012 








ERROR 


12 


j'ERR* SET WHILE DOING RD FMT 


















|FROM CYL SHOWN IN RKDA 


5nq4 


5 3 1 o 


1 n44i ^ 








CON^RESET 


1 GO DO CNTRL RESET 


2095 


















2056 




005237 


001506 






I 


fcRC 12 


|KIND» IF MORE THAN FIVE ERRORS 


2097 
















fSKiP THIS TEST 


2098 


005324 


001532 








BEQ 


TST4 


1 jEXIT 


2099 


005 326 


O0OS2O 








BP 


14$ 


fGO SET UP TO RD FMT FROM NXT 


2100 
















•CYL IN LINE 


2101 
















; CHECK THAT CORRECT HEADERS WERE RECVD , 


2102 
















iSECTR n HAVING BAD HDR IS STORED ALO^G 


2103 
















jWITH BAD HDR 


2104 


















2105 


005330 


0047 37 


007260 




71 i 


JSR 


PC f CHKHDRS 


1 GO CHECK IF CORRECT HEADERS WERE READ 




















2107 


AOS ^ 34 


0057 37 


00 i 500 






TST 


INDX3 


}WAS THERE A MISCOMPARISON? 




05 3^0 


001513 








BEQ 


14$ 


f IF NOT* GO SET UP TO RD FMT 


















jNXT CYL IN LINE 










0011 




MOV 


#2Sf $LPERR 




2111 


005 3^0 










ERROR 


13 


; CORRECT HDPS WERE NOT REC VD 


2112 
















; FROM SECTRS AS TYPED OUT ■ 


2113 
















•THE SAME CYLINDER WAS READ TWICE 


2114 


005352 


005237 


001254 






INC 


RETRY2 


•RETRY RD FMT ON SAME CYL AGAIN 


2115 


005356 


022737 


000002 


001254 




CMP 


S2,RETRy2 


iTRIED RDING SAME C\L TWICE 














BNE 


2S 


fIF NDT» GO RD AGAIN 


211 7 
















• YES, REPORT ERROR 


2119 


0053t56 


005237 


001504 


> 




INC 


ERCNfl 


; ALLOW ONLY 5 ERRORS OF THE 


















; ABOVE TYPE « IF MORE THAN 12 




















01 o 1 


005372 


0013 05 








BEQ 


16S 




2122 
212 3 











2001 






. THE PSUEDO^HEADEPS (FIRST WORD OF EVERY 


212 4 
















. SECTOR) FROM THIS CYLINDER ( ABOVE, 


2125 
















;THE CYLINDER THAT GAVE WRONG HEADERS] 


2126 
















fWILL BE READ, NOW, FOLLOWING WILL B TYPO OUTi 


2127 
















jSECIi, EXPCTD PSUEDO-^'HDR, RECVD PHDR^ 


2128 
















;IF "INHIBIT TYPEOUT" SW IS SET THIS ENTIRE 


2129 
















; READING & TYPING WILL BE SKIPPED 


2130 


005374 


032777 


020000 


173536 




BIT 


saooooj ?swR 


JINHIBIT TYPEOUT? 


2131 


005402 


001072 








BNE 


14$ 


jYES, SKIP THE FOLLOWING & GO 


2132 
2133 
















;SET UP TO RD FMT NXT CYL IN LINE 


2134 


005404 


012701 


177764 






MOV 


#-14?Rl 


?READ FROM 12 SECTRS 



1"DZRKL»E, 


PK11«RK05 


DYNAMIC 


TEST 


MACYU 


JOC1046J 


H^-JUL"?? 08 103 PAGE 43 


LE.Pli 26«'APR»77 


12127 




T3 


READ FORMAT OF THE DISK 




35 005410 


010377 


174050 






MOV 


R5,@RKDA 


IFROM THIS DSK-ADRES 


36 005414 


012777 


026446 


174040 




MOV 


#OUTBUr#§RKBA 


yINTO THIS BUS^ADRES 


37 005422 


012777 


177777 


174030 


10$i 


MOV 


if-l,SRKWC 


|RD 1 WRD 


39 005430 


012777 


000005 


174020 




MOV 


#5,§RKCS 


;G0, RD 


40 005436 


104421 








CONgRDY 




jWAIT FOR CNTRL RDY 


41 005440 


005777 


174012 






TST 


iRKCS 


jANY EROR? 


42 005444 


100002 








BPL 


15$ 


;N0, PROCEED 


43 005446 


104415 








CON^RESET 


?CLEAR THE EROR 


44 005450 


000447 








BR 


148 


fEROR, SO COULDN'T READ PSUEDO-HDRS 


46 005452 


005201 






iSSi 


INC 


Rl 


IREAD FROM ALL 12 SECS 


47 005454 


001362 








BNE 


iOS 


;IF NOT GO RD THE NXT ONE 
















;TYPE OUT PSUEDO-HDRS CORRESPONDING 
















jTHE SECTORS WHICH GAVE BAD HEADERS 
















rTYPEs SEC #, EXPC P"»HDR, RECVD P-HC 


53 005456 


104401 








TYPE 




;TYPE OUT 


54 005460 


001771 








MSGU 






55 005462 


012701 


001266 






MOV 


#BUFR,B1 


J SEC #»S ARE STORED HERE 


57 005466 


104401 






U$l 


TYPE 




ITYPE CR, LF 


58 005470 


001213 








SCRLF 






60 005472 


011102 








MOV 


(R1)#R2 




61 005474 


01 2703 


026446 






MOV 


^OUTBUFf R3 


;PSUEDO«HEADERS WHICH WERE 
















;READ ARE STORED HERE 


64 OO550O 


00570? 






I2$j 


TST 


R2 


lis THIS SEC » CORRESPONDING TO THE 


65 005502 


001403 








8E0 


13$ 


JONE IN ERROR 


66 005504 


003302 








DEC 


R2 


;R2 CONTAINS THE SEC # 


67 005506 


005723 








TST 


CR3)* 




68 005510 


000773 








BR 


128 




70 005512 


0U146 






13SI 


MOV 


(Ri3,-CSP) 


|G0 TYPEOUT SEC » GIVING 


71 005514 


104403 








TYPOS 




jMISCOMPARISON OF HEADERS 


72 005516 


002 








sBYTE 


2 




73 00SS17 


000 








sBYTE 





;SUPRES LDG O^S 


75 005S20 


104401 








TYPE 




;TYPE 2 BLANKS 


76 005522 


002105 








BLNKS5 






78 005524 


010546 








MOV 




fGO TYPE EXPCTD PSUEDO HEADER 


79 00SS26 


051116 








BIS 


CRlS»CSP) 




80 005530 


104402 








TYPOC 






€2 00S532 


104401 








TYPE 




;TYPE 2 BLNKS 


93 00S534 


002103 








BLNKS7 






85 O0SS36 


011346 








MOV 


£R3}»^(SP} 


J GO TYPE PSUEDO'-HEADER RECVD 


86 005S40 


104402 








TYPOC 






88 005S42 


005721 








TST 




; TYPED OUT ALL SEC 9'S IN ERROR, 


89 005344 


021127 


177777 






CMP 


CR1)*#177777 




90 005550 


001346 








BNE 


11$ 


|IF NOT GO BAK C TYPE NXT 



MD«.li-DZRKL«.E, RKll^RKOS DYNAMIC TEST MICITil 30C10465 i4«»JUL«77 08103 PAGE 44 
DgRKLEgPH 26«*AI»R^77 i2l27 f3 READ FORMAT OF THE DISK 



2191 
2192 
2193 
219* 

2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
221 1 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
223 1 
2232 
2233 
2234 
2235 
2236 

2237 

2238 
2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 



O0SSS2 104401 001733 

00S556 012746 00S374 

005S62 104402 

005564 104401 001213 



O0SS70 
00SS74 
005600 
00S602 



062705 

O0S237 
001404 

000137 



000020 

001416 



005606 004737 016772 



TYPE 
MOV 
TYPOC 
TYPE 



ADD 
INC 
BEQ 
JMP 

JSR 



,MSG? 



#20jRS 

INDX2 

TST4 

U 

PC/ABRT 



fTYPE OUT PC 



I TYPE ROUTINE ENDS HERE 

I FIND OUT NXT TRAK TO B READ 

f FORMATTED 

J SET ADRES FOP SUR 0, NXT CYL IN LINE 
IREAD ALL 313 CYLINDERS (626 TRAKS)? 

nEXIT 

;IF NOT, GO BAK & READ. NXT 



00S612 000004 
005614 104415 



|»TEST 4 SEEK PATTERNSi 0-3 1 2-0-3 1 1 « , , , , USING IMPLIED SEEK 

,#«*»TEST 2 (WRITING PSUEDO-HEADERS) SHOULD HAVE BEEN DONE BEFORE»#*» 
} DOING THIS TEST##** 

I«THIS TEST PERFORMS SEEKS (IMPLIED SEEKS USING 'READS') IN THE 
^❖FOLLOWING PATTERN, 

f »0«312'»0«'31i«0»310«»99 «sO«>i««0«0 

f *THE FIRST WORD OF EVERY SECTOR IS A PSEUDO-HEADER (WRITTEN IN 
t»k PREVIOUS TEST) CONSISTING OF DRIVE NO, CYLINDER NO,, SURFACE 
j»AND SECTOR NO, AN IMPLIED SEEK IS DONE BY ISSUING A 'READ' FOR 
l*THE PSEUbO«>HEADER OF SECTOR 0, SURFACE 0, 

f «IF A 'SIN' OCCURS TWO TRIES ARE DONE BEFORE ABORTING, IF A 'SKE' 
l«OCCURS IT COULD MEAN THAT I) EITHER THE HEADERS WAS READ WRONG 
f *0R 2) THE HEADS GOT POSITIONED ON THE WRONG CYLINDER, IN 
; BORDER TO PROVIDE A FURTHER INSIGHT INTO THE PROBLEM, THE FOLLOWING 
I*IS DONEj 

f#THE HEADERS ARE READ FROM THE CYLINDER THAT GAVE 'SKE* , IF THE HEADERS 
;»ARE CORRECT IT IS SO REPORTED, IF THE HEADERS ARE INCORECT, THEN THE 
;*EXPECTED HEADERS AND THE RECEIVED ONES ARE REPORTED, ONE MORE TRY IS 
|»DONE (THE IMPLIED SEEK IS TRIED AGAIN BETWEEN THE CYLINDERS THAT GAVE RISE 
)#T0 'SKE') 

)«THE FOLLOWING ACTION IS TAKEN WHEN THERE IS NO 'SKE' OR 'SIN* BUT STILL THE 
j*PSEUDO-HEADER IS READ WRONG: 

j*FIRST THE HEADERS ARE READ FROM THAT CYLINDER AND CHECKED, IF THEY ARE 
;*«CORRECT, IT IS SO REPORTED, IF THEY ARE WRONG THEN THE EXPECTED AND RECEIVED 

f ^HEADERS ARE REPORTED, THEN THE PSEUDO-HEADER FROM SECTOR 1 IS READ AND REPORT 
;»ONE MORE TRY IS DONE BY REPEATING THE WHOLE PROCESS, (IMPLIED SEEK 
l*BETWEEN THE TWO CYLINDERS AND READING PSEUDO-HEADER FROM SECTOR OF THE DESTI 
>*CYLINDER) , 

f »UP TO 12 ERRORS OF EACH KIND (SIN, SKE, BAD PSEUDO-HEADER) ARE ALLOWED, 
}*IF ANY ERROR OCCURS MORE THAN 12 TIMES THE TEST IS ABORTED g 

TST4I SCOPE 

CON, RESET ;G0 DO CONTROL RESET 
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2247 


00S6I6 


104416 








DRV 


RESET 


2248 


















2249 


005620 


005004 








CLR 




R4 


2250 


















2251 


















2252 


















2253 


005622 


012737 


177465 


001476 




MOV 




«»313, INDX2 


2254 


005630 


012700 


177764 






MOV 




#'»14,B0 


2255 


005634 


010037 


001504 






MOV 




R0,ERCNT1 


2256 


005640 


010037 


001506 






MOV 




R0,ERCN12 


2257 


005644 


010037 


OOlSlO 






MOV 




R0,ERCNT3 


2258 


















2259 


00S650 


012737 


014300 


001260 




MOV 




#14500, INADR 


2260 


















2261 


















2262 


















2263 


0056§6 


005704 






ill 


TST 




R4 


2264 


005660 


001003 








BNE 




2g 


2265 


005662 


013705 


001260 






MOV 




INADR, P5 


2266 


005666 


0S370S 


001230 






BIS 




DRIVAD,R5 


2267 


005672 


000402 








BR 




3$ 


2268 


00S674 


013705 


001230 




211 


MOV 




DRIVAD,R5 


2269 


















2270 


















2271 


OOS700 


012737 


177776 


001254 


311 


MOV 




#«2»RETR¥2 


2272 


OOS706 


012737 


177776 


0012S2 


13$1 


MOV 




#«2»RETRYi 


2273 


005714 


012737 


177777 


001256 


Ut 


MOV 




RETRY! 


2274 


00S722 


000404 








- BR 




S8 


2275 


00S724 


1044IS 






6S1 


CON 


RESET 


2276 


00S726 


104416 








DRVeRESET 


2277 


00S730 


004737 


006S26 






JSR 




PC,SBR1 


227B 


















2279 


005734 


012777 


177777 


173516 


SSI 


MOV 




#«-l,@RKWC 


2280 


00S742 


010577 


173516 






MOV 




RS,§RKDA 


2281 


005746 


012777 


026446 


I73S0S 




MOV 




#OUTBUF,@RKBA 


2282 


005734 


012737 


00S724 


001110 




MOV 




#6$,ILPERR 


2283 


















2284 


















2285 


005762 


012777 


000005 


173466 




MOV 




iS,iRKCS 


2286 


















2287 


005770 


104421 








CON 


RDY 




2288 
2289 


005772 


032777 


001000 


1734§2 




BIT 




#1000,§RKDS 


2290 


006000 


001434 








BEQ 




8@ 


2291 


















2292 


006002 


004737 


016376 






JSR 




PC,ERRi 


2293 


006006 


017737 


173440 


001170 




MOV 




§RKDS,SREG3 


2294 


006014 


017737 


173434 


OOiiSS 




MOV 




9RKER,«REG2 


2295 


006022 


104420 


001602 






TYPMSG 


,MSG1 


2296 


006026 


013737 


OOiSSS 


0011?2 




MOV 




RETR¥3,SREG4 


2297 


006034 


062737 


000002 


00li?2 




ADD 




#2,SRSG4 


2298 


006042 


104014 








ERROR 


14 


2299 


















2300 


















2301 


















2302 
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;G0 DO DRIVE RESET 

;FLAG, CLR IF DOING IMPLIED 
;SEEK IN FROM TO 'INADR' 
;sl, IF GOING FROM 'INADR' 
•OUT TO CYL 
J 31 3 SEEK PATTERNS 

/7 ALLOW ONLY 12 ERRORS 
;0F THESE KINDS 



; 'INADR' CONTAINS THE INER 
JCYL TO WHICH IMPLIED SEEK WILL 
;BE DONE 

; GOING IN OR OUT? 

; GOING OUT, BRANCH 

fSET CYL ADRES BITS FOB GOING IN 

jFORM DISK ADRES FOR INNER 

jCYLINDER 

f FORM DISK ADRES FOR OUTER 
jCYLINDER « 
; ALLOW 2 TRIES WHEN 
jERRORS OCCUR 



yREPIDSITION HEADS TO PRE-ERROR CYL 
I READ 1 WORD 

jFROM THIS CYLINDER, SEC 
fINTO THIS BUS ADRES 
I SET RETURN ADRES FOR LUPING 
J ON 'ERROR' 

tGQf READ 

: WAIT FOR CNTRL RDY 

JSIN? 

;N0, BRANCH 

; YES, THERE WAS A SIN 

}G0 GET, CYLS BETW'N WHICH SK WAS TRIED 



;SAVE TRY # ON 'SIN' 

I AN IMPLIED SEEK WAS TRIED 
jFROM 'CYLA' TO 'CYLB' (INDICATED 
|IN EROR MESAGE), 'SIN' OCCURRED, 
}2 TRIES ARE DONE BEFORE 
jABORTING 
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2303 


006044 


00S737 


0012SS 






TST 


RETBY3 


jDONE RETRIES 


2304 


006050 


001403 








BEQ 


7$' 


lYESr BRANCH 


2305 


006052 


005237 


0012S6 






INC 


RETRY! 


;G0 DO 2ND TRY 


2306 


006o56 


000722 








BR 


6S 




2307 


















2308 


006060 


005237 


001504 




711 


INC 


ERCNTi 


1 ALLOW LESS THAN 12 ERORS OF THIS 


2309 


006064 


001103 








■ BN-E 


19$ 


; IF MORE SKIP THIS TEST 


2310 


006066 


000137 


006614 






JMP 


EXT4 


jEXIT THIS TEST 


23t i 


















2312 


006072 


032777 


010000 


1733S4 




BIT 


#10000, 9RKER 


ISKE? 


2313 


006100 


001S06 








BEQ 


208 




2314 


006102 


004737 


016376 




ISSI 


JSP 


PCERRI . 


J GO GET 2 CYL NOS, BETWEEN WHICH 


2315 


006106 


017737 


173342 


001166 




MOV 


9RKERf SREG2 


J IMPLIED SEEK WAS DONE 


2316 


006114 


017737 


173332 


OOiiTO 




MOV 


9RKDS|3REG3 




2317 


006122 


013737 


001282 


001172 




MOV 


RETBY1#SBEG4 


;GET TRY S ON *SKE*' 


23ia 


006130 


062737 


000003 


001172 




ADD 


#3,8REG4 




2319 


006136 


104420 


001610 






TYPMSG 


#MSG2 


fGO PRINT *SKE* 


2320 


006142 


104014 








ERROR 


14 


; IMPLIED SEEK WAS TRIED FROM 


2321 
















} »CYLA' TO 'CYLB* (INDICATED 


2322 
















; IN EROR MESAGE} } 'SKE' OCCURRED, 


2323 
















|2 TRIES ARE DONE, 


2324 


006144 


104413 








CONeBESET 


|D0 CONTROL RESET 


2325 


















2326 


006146 


004737 


006552 






JSP 


PC#SBR2 


|G0 READ 12 HEADERS FROM 


2327 
















»THIS CYLINDER & COMPARE 


2328 
















jTHEM, NOTE R5 CONTAINS THE 


2329 
















jDISK ADRES THAT WILL BE USED, 


2330 


















2331 


006152 


012777 


000015 


173276 




MOV 


#15?®RKCS 


}G0 DO DRIVE RESET 


2332 
















J WHILE THE DRIVE IS DOING RESET 


2333 
















J THE HDRS THAT WERE READ 


2334 
















lABOVE ARE CHECKED, PRINTED 


2335 


















2336 


006160 


0057 37 


001500 






TST 


INDX3 


|WAS THERE A MISCOMPABISON 


2337 
















; IN ANY HEADER? 


23 38 


006164 


001006 








BNE 


lOS 


; IF INDX3>0/ THERE WAS« 


2339 
















;N0, THERE WASN'T^ HDRS OK 


2340 


006166 


005237 


001252 






INC 


RETPYl 


fONLY 2 TRIES FOR SKE 


2341 


006172 


001414 








BEQ 


12s 


jBRANCH IF THIS WAS A 2ND TRY 


2342 


006174 


104420 


001657 






TYPMSG 


,MSG5 


;TYPE OUT THAT HDRS WERE READ 


234 3 
















; CORRECTLY ^ THIS WAS TRY # 1 


2344 


















2345 


006 200 


000405 








BR 


111 




2346 


















2347 
















;HDRS WERE READ INCORRECT. 


2348 


006 20 2 


005237 


001252 




lost 


INC 


RETRY! 


; ALLOW 2 TRIES FOR SKE 


2349 


006206 


001411 








BEQ 


14$ 


; BRANCH/ IF THIS WAS 2ND TRY 


2350 


















2351 
















; THERE WAS SKE ON DOING IMPLIED 


2352 


006210 


104417 


000015 






MESAGE 


, 15 


; SEEK TO 'CYL B' , THEN HDRS WERE 


2353 
















; READ FROM CYL B , WRONG HDRS 


2354 
















fPECVD 


2355 


















2356 


006214 


104423 






US! 


RESDON 




; WAIT FOR PREVIOUS DRIVE RESET 


2357 
















; TO BE DONE 


2358 


006216 


004737 


006526 






JSP 


PC,SBBl 


;G0, REPOSITION HEADS 



)-l 1»DZRKL-E, 


RKU-RK05 


DYNAMIC 


TEST 


MACYll 


30(1046) 


i4-JUL-77 


08103 PAGE 47 


.RKLE^PH 26«APR-77 


12127 




T4 


SEEK PATTERNS! 0"312 


«0«31l-,,i,, USING IMPLIED SEEK 


2359 


006222 


000634 








BR 


4$ 




2 36 


















2361 
















;2N0 TRY, SKE THIS TIME ALSO, BUT 


2362 
















fREAD HDRS CORRECTLY FROM 


236 3 
















jCXLINDER THAT GAVE SKE 


2 36 4 
















fNOTE THIS WAS THE 2ND TRY 


2365 


006224 


104420 


001657 




12$I 


TYPMSG 


»MSG5 


jTYPE OUT THAT HDRS WERE 


2366 
















;READ CORRECTLY, 


2367 


















2368 


006230 


000402 








BR 


16$ 




2369 


















2 370 
















;2ND TRY, SKE THIS TIME ALSO, 


237! 


006232 


104417 


000015 




14$8 


MESAGE 


as 


J READ HDRS FROM CYL THAT 


237? 
















;GAVE SKE, THEY WERE INCORRECT, 


23 7 3 


















2374 


006236 


104423 






l6Si 


RESDON 




; WAIT FOR PREVIOUS DRIVE RESET 


2375 
















;T0 BE DONE 


2376 


















2377 


006240 


005237 


001506 






INC 


ERCNT2 


lALLOW ONLY LESS THAN 10 ERRORS OF 


2378 
















fTHIS TYPE CSKE3 


2379 


006244 


001002 








BNE 


17$ 




2380 


006246 


000137 


006614 






JMP 


EXT4 


fEXIT THIS TEST IF MORE 


2381 


















2382 


006252 


005704 






i7$| 


TST 


R4 


f WENT LAST TIME IN OR OUT? 


2383 


006254 


001007 








BNE 


19$ 


f OUT 


2384 
















|IN 


2385 


006256 


005703 








TST 


H3 


;WERE HDRS CORRECT? 


2386 


006260 


001005 








BNE 


19$ 


}N0 


2397 
















J YES 


2388 


















2389 


006262 


005204 






iisi 


INC 


R4 




2390 


006264 


004737 


006526 






JSR 


PC,SBR1 


;G0 POSITION HEADS BAK ON INNER 


2391 
















fCYL 


2392 


006270 


000137 


005656 






JMP 


1$ 


;G0 BAK 6 SEEK OUT NOW 


2393 


















2394 


006274 


00S237 


001476 




19$S 


INC 


IN0X2 


lALL SEEK PATTERNS DONE? 


2395 


006300 


001347 








BEQ 


TSTS 


hexit 


2396 


















2397 


00S302 


162737 


000040 


001260 




SUB 


I40jXNADR 


fSET ADDRESS FOR THE NXT 


2398 
















; INNER CYLINDER 


2399 


006310 


005004 








CLR 


R4 


1 INDICATE THAT NOW SEEK IS GOING 


2400 
















iTo BE m 


2401 


006312 


000137 


0056SS 






JMP 


in 


fGO BAK S SEEK IN TO *'IMADR«' 


2402 


















2403 


006316 








20SI 






1 IF THERE WAS NO SIN OB SKE 


2404 
















lENTER HERE 


2405 


















2406 


006316 


012737 


00S700 


001110 




MOV 


#3$#ILPERR 


;SET RETURN ADRES FOR LUPING 


2407 
















|0N ERROR 


2408 


006324 


020537 


026446 






CMP 


RSjOUTBUr 


1 CORRECT PSUEDO«HEADER READ? 


2409 


006330 


001471 








BEQ 




lYESj BRANCH 


2410 


00S332 


013737 


0012S4 


001172 




MOV 


RETRY2,$REG4 


fGET TRY # 


2411 


006340 


062737 


000003 


001172 




ADD 






2412 


006346 


004737 


016376 






JSR 


PCjERRI 


;G0 GET CYL BETWN 


2413 
















1 WHICH IMPLIED SEEK imhd} 


2414 
















f WAS DONE 
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2415 


0063S2 


010537 


001 iSS 






MOV 


R5r $REG2 


;GET EXPCTD PSUEDO-HDR 


2416 


006356 


013737 


026446 


00SI70 




MOV 


OUTBUF» 8REG3 


; GET PSUEDO*HDR RECVD 


2417 


006364 


104016 








ERROR 


16 


i IMPLIED SEEK FROM CYLA TO CYLB WAS 


2418 
















I READ PSEUDO<*HEADER OF SEC 0, 


2419 
















}CYLB (IN EROR MESAGE) » BUT 


2420 
















> THE WRONG PSEUDO-HEADER WAS 


2421 
















} RECEIVED 


2422 


006366 


O0S237 


001234 






INC 


RETPY2 




2423 


006372 


001402 








BEQ 


21$ 




2424 


006374 


00013? 


O0S706 






«JMP 


13$ 




2425 


















2426 














• 




242? 


00S400 


004737 


006SS2 




31$ 1 


JSR 


PC f SBR2 


; GO READ HEADERS (12) FROM 


2428 
















; THIS CYLINDER* & CHECK THEM , 


2429 
















f IF MISCOMPARISON INDX3 WILL 


2430 
















f BE > « 


2431 


006404 


00S737 


OOlSOO 






TST 


INDX3 




2432 


00641 


001003 








BNE 


22@ 




2433 


00641 2 


1 04420 


001657 








f MSGS 


; WRONG PSUEDO"»HDR WAS READ 


2434 
















; BUT WHEN HDRS WERE READ 


2435 
















} FROM THE SAME CYLINDER^ THEY 


2436 


006416 


000402 








BR 


23$ 


t WERE CORRECT 


2437 


















2438 


006420 


104417 


OOOOIS 




22$ I 


MESAGE 


#15 


; WRONG PSUEDO'HDR WAS READ 


2439 
















} FROM *C YLB * (IN ERROR MESAGE) , 


2440 
















J THEN HEADERS WERE READ FROM THE 


2441 
















) SAME CYLINDERg THEY WERE ALSO 


2442 
















J WRONG , 


2443 


006424 


OlOSOO 






23$ 2 


MOV 


R5 1 RO 


; NOW READ THE PSUEDO»HEADER 


2444 


006426 


001200 








INC 


RO 


; FROM THE NEXT SECTOR CI) 


2445 


006430 


010077 


173030 






MOV 


RO, @RKDA 


; SAME CYLINDER 


2446 


006434 


012777 


026446 


173020 




MOV 


#OUTBUF» 0RKBA 




2447 


006442 


012777 


177777 


173010 




MOV 


f'^l » IRKWC 




2448 


0064SO 


012777 


000005 


173000 




MOV 


t^S f @RKCS 




2449 


006456 


104421 








CON gROy 






2450 


006460 


010537 


001162 






MOV 


R5 t SREGO 




245 1 


006464 


004737 


016434 






JSH 


PC f viC YL 


J GO GET C YL # & STORE IT IN $ REGO 


2452 


006470 


010037 


001164 






MOV 


ROj SREGi 


jt GET EXPCT PSUEDO-HDR FROM SEC 1 


2453 


006474 


013737 


02644S 


001166 




MOV 


0UTBUF#gREG2 




2454 


006S02 


104417 


00001? 






MESAGE 


ill 


;PSUEDO-HEADER FROM SEC 1 , CYLB 


2455 
















; ( IN MESAGE) WAS READ , THE EXPCTD 


2456 
















; 6 RECVD DATA WORDS ARE REPORTED , 


2457 


006S06 


005237 


001510 






INC 


ERCNT3 


; ALLOW ONLY LESS THAN 10 ERRORS 


2458 
















jOF THIS TYPE (WRONG PS-HDRS) 


2459 


006S12 


001440 








BEQ 


EXT4 




2460 


















246 I 


006514 


005704 






24S ! 


TST 


R4 


jSEEKED IN OR OUT LAST TIME? 


2462 


006516 


001266 








BNE 


19$ 


; IF OUT, GO SEEK NXT INNER CYL 


2463 


















2464 


006520 


O0S2O4 








INC 


R4 


J INDICATE THAT SEEK OUT (0) 


2465 


006522 


000137 


0056S6 






JMP 


IS 


;WILL BE DONE NOW 


2466 


















2467 


















2468 














f THIS 


ROUTINE IS USED IN THIS TEST ONLY, 


2469 














}R4aO 


INDICATES SEEK BEING DONE FROM 


2470 














jCYL 


TO INNER CYLs 
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2471 
2472 
2473 
2474 
247S 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
248S 
2486 
2487 
2488 



2S02 
2503 
SS04 
250S 
2S06 
2507 
2508 
2S09 
2S10 
2S11 

asi2 

2S13 
2314 
2Sii 
2S16 
2S17 
2S18 
2Si9 
iS20 
2S21 
2S22 
2S23 
2524 
2S2S 
2S2S 



|R4sl INDICATES SEEK BEING DONE FROM 

J INNER CYL TO 0, THIS ROUTINE POSITIONS 

I THE HEADS ON 'INADR* CYL IF R4al 



00&S26 
006530 
006S32 
006540 
006546 
006550 



00S704 
001407 
01377? 
012777 

104422 
000207 



001260 

OOOOU 



172724 
172710 



TST 
BEQ 
MOV 

MOV 



TSTgRWS 
RTS PC 



R4 
II 

INADR,fRKDA 
«ll,iiRKCS 



JTHIS ROUTINE IS USED IN THIS TEST 

jONLYg IT READS 12 HEADERS FROM CYLINDER 

) WHOSE ADRES IS IN R5 , THEN IT CHECKS 

I IF THE EXPECTED HEADER IS RECEIVED, 

fir IT IS NOT, INDX3 IS INCREMENTED INDICATING 

J THE ERROR 



2489 


006SS2 


012700 


177764 


SBR2I 


MOV 


#»14,P0 




2490 


006SS6 


012701 


026446 




MOV 


»0UTBUF,R1 




2491 


006S62 


01007? 


172672 




MOV 


R0,9RKWC 


;READ 12 HDRS 


2492 


006S66 


010177 


172670 




MOV 


RlfgRKBA 


; INTO THIS ADRES 


2493 


006S72 


010S77 


172S6S 




MOV 


R5,@RKDA 


J FROM THIS CYLINDER 


2494 


006576 


012777 


002005 


172SS2 


MOV 


#200S,|RKCS 


;RD FMTr GO 


2495 


00S604 


104421 






CON 


RDY 




2496 














J GO CHECK IF CORRECT 


2497 


006806 


004737 


007260 




JSR 


PCiCHKHDRS 


2498 
















2499 


006612 


00020? 






RTS 


PC 


lEXIT 


2500 
















2501 


006614 


004737 


016772 


EXT4S 


JSR 


PCjABRf 





006S20 
006622 
006S24 



000004 
10441S 
104416 



;»TEST 5 PERFORM CON VERGING«DI VERGING (IMPLIED) SEEKS 

|*THIS TEST PERFORMS A CON VERGING-DI VERGING SEEK PATTERN 
j»USING IMPLIED SEEK (READ FORMAT) , THE SEEK SEQUENCE ISi 

f #Q»3l2«l'«31S'»2«310«3-307^«>^«=^«'«3l0«2«'3il'«l«'3l2 
I ALL BEAD FORMATS ARE DONE FROM SURFACE 0« 

;»THE CYLINDER ADDRESSES, BETWEEN WHICH THE IMPLIED SEEK IS 
|«PERFRORMED, ARE CONTAINED IN 'OUTADR* I, nNADR' , IF 'SIN' OCCURS 
f «AN ERROR IS REPORTED AND A RETRY IS DONE, ON READING INCORRECT 
|«HEADERS AN ERROR IS REPORTED AND A RETRY IS DONE, NOTE THAT IF 
|«ALL THE 17 HEADERS ARE INCORRECT, IT COULD MEAN THAT THE HEADS 
|«COULD NOT POSITION CORRECTLY, THIS WOULD BE CONFIRMED If IN 
f ^PREVIOUS TESTS BAD HEADERS WERE NOT RECIEVED FROM THE SAME 
f#CYLlNDER, IF THAT CYLINDER GAVE BAD HEADERS IN ALL THE PREVIOUS 
;«TESTS THE PROBLEM COULD BE DIFFERENTg 
r»MAXIMUM 12 ERRORS OF ANY KIND ARE ALLOWED, 
1*ir MORE THAN 12 ERRORS OCCUR THE TEST IS ABORTED, 

fSfSl SCOPE 

CONgRESET I GO, DO CONTROL RESET 

DRV, RESET jGO,DO DRIVE RESET 



006626 00i004 



CLR 



R4 



; (R4)a0 SEEKING FROM 'OUTADR* TO 'INADR' 
I (R4)«l SEEKING FROM *INADR' TO 'OUTAOR* 
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26'«APB«'77 


12127 






PERFOPM 


CONVERGING^DIVERGING (IMPLIED) SEEKS 






1 774S6 


001 476 




MOV 


#.-312*INDX2 


?SET COUNT FOR DOING 312 TIMES 


006636 


012700 


177764 






MOV 


#'»»i4f BO 




006642 


010037 


001504 






MOV 


RO f ERCNTl 


JAJjIjUW Unili id CKKUKo 


006646 


010037 


001506 






MOV 


RO? ERCNT2 






00503 / 








_ 


QUTADR 


jINITIALIZE ^OUTADR* fO 


006656 


0127 37 


014S0O 






MOV 


#14500, INADR 


^INITIALIZE ^NADR' TO 312 


006664 


005704 






ISS 


TST 


R4 


jGOING IN OR OUTI 


006666 


01 005 










2$ 


y GOING OUT, BRANCH 


006670 


013705 


001260 






MOV 


XNADRy B5 


1 SET CYL ADRES BITS FOR GOING IN 


006674 


053705 


001230 






BIS 


DRI VAD j'R§ 


fFOBM DISK ADRES FOR INNER CYLINDER 


006700 


/I A A A A A 








BR 


3$ 












g 


MOV 


0UTADR,R5 


Jacii CIL AUK&D dX15 r UH uUiNb UUi 


nt 

006706 


OS J /Ob 








BIS 


DRIVAD,P5 


jFORM DISK ADRES FOR GOING OUT 


006712 


005037 


001254 




3$l 


CLB 


RETRY2 


jALLOW 2 RETRIES 


006716 


012737 


177777 


001252 


4§l 


MOV 


^•^IfRETRYl 


f wHEiN g.KMUn& ULLUH 


006724 


000404 








BP 


7S 




006726 








1 


CON, RESET 




006730 


104416 








DRV^RESET 




O06732 


004737 


007224 






J5K 


PC,SBB3 


|G0 REPOSITION HEADS 


006736 


012777 


177764 


172514 


7$| 


MOV 


#«i4,§RKWC 


IREAD ALL HDRS FROM THIS CYLINDER 


006744 


010577 


172514 






MOV 


RS,iRKDA 


jFROM THIS CYL, SEC 


006750 


012777 


026446 


172504 




MOV 


#OUTBUF|§BKBA iINTO THIS BUS ADRES 


006756 


012737 


006726 


OOlUO 




MOV 


#5Sf SLPERR 


fSET RETURN ADRES FOR LOOPING ON ERROR 


006764 


012777 


A A O A A K 


172464 




MOV 


j?2005ff§RKCS 


pREAD FORMAT, GO 


0067 '2 


104421 








CON^BDY 




JWAIT FOB CONTRL RDY 


0067 '4 


3 277 7 


A A 11 AAA 
I U U 


17 245 




BIT 


#1000,@RKDS 


J SIN? 


007 002 










BEQ 


8S 


|N0, BRANCH 


007004 


0177 37 


172444 


001 166 




MOV 


iRKERf SREG2 


J SAVE RKER 


007 1 2 


017737 


172434 


001170 




MOV 


®RKDS,gREG3 


jSAVE RKDS 


007 020 


^ ^3 


001252 






MOV 


RETRYl,$REG4 


?GET RETRY # 


7 2 6 


0627 37 


000002 


001 11' 2 




ADD 


#2,$REG4 




007034 


004737 


016320 






JSR 


PC,ERR2 


',QE1 CYL ^'S BELOW "N WHICH 
















fSEEK WAS TRIED 


007o40 




001602 






TYPMSG 


,MSG1 


iTtPE "SIN* 


007o44 


104014 








ERROR 


14 


















; 'SIN' OCCURRED ON DOING IMPLIED 
















;SEEK FROM 'CYLA' TO 'C^LB' (IN 
















;EROR MESAGE) , 


007046 


005737 


001252 






TST 


RETFYl 


jDONE 2 TRIES? 


7 052 










BEQ 


6S 


; YES, BRANCH 


007054 


005237 


0012S2 






INC 


RETRYl 


;N0, RETRY 


0706 


000722 








BR 


5$ 




007062 


104415 






6@1 


CON, RESET 




007064 


104416 








URV, RESET 




007066 


005237 


001504 






INC 


ERCNTl 


; ALLOW LESS THAN 12 ERORS OF THE 
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2583 


007072 


001527 








BEQ 


EXT5 


jABOVE KIND 


2584 
















; IF MORE SKIP THIS TEST 


2585 
















;SIN OCCURED WHEN GOING TO CYL (IN 


2586 
















>P5) , A DRVE RESET HAS BEEN DONE, 


2587 
















jNOW TRY POSITIONING HEADS ON 


2588 
















ITHAT CYL» 


2589 


007074 


010577 


172364 






MOV 


P5, PRKDA 


;SET CYL ADRES 


2590 


007100 


012777 


000011 


172350 




MOV 


#11,@RKCS 


;SEEK,GQ 


2591 


O07106 


104422 








TST a 


RWS 




2592 


007 110 


000424 








BR 


11$ 




2593 
















; IF NO SIN, ENTER HERE 


2594 


007112 


004737 


007260 




8SS 


JSR 


PCCHKHDRS 


;G0 CHECK IF CORRECT HEADERS WERE READ 


2595 


















2596 


007116 


012737 


006716 


OOlllO 




MOV 


#4S,$LPERB 


J SET LUP ADDRESS 


2597 


007124 


005737 


001500 






TST 


INDX3 


;WAS THERE A BAD HDR? 


2598 


007130 


001414 








BEG 


118 


;N0, BRANCH 


2599 


007132 


104020 








ERROR 20 


J WRONG HEADERS WERE READ FROM 


26UU 
















; 'SEC #"S, ON DOING AN IMPLIED 


2601 
















fSEEK (RDFMT) FROM 'CYLA* TO 'CYLB' 


2602 


007134 


005237 


0012S4 






INC 


RETRY2 


J ALLOW 2 TRIES 


2603 


007140 


022737 


000002 


0012S4 




CMP 


#2,RETPY2 




2604 


007146 


001253 








BNE 


4i 


;G0 TRY 2ND TIME 


2605 


007150 


005237 


001506 






INC 


ERCNT2 


> ALLOW ONLY 12 ERRORS 


2606 


007154 


001002 








BNE 


ill 




2607 


007156 


000137 


007352 






JMP 


EXT5 


?IF MORE, EXIT THIS TEST 


2608 


















2609 


007162 


005704 






ilS8 


TST 


R4 


; GOING WHICH WAY? 


2610 


007164 


001006 








BNE 


12$ 


; 'INADR' TO 'OUTADR', BRANCH 


261 1 
















; 'OUTADR* TO 'INADR' 


2612 


007166 


005204 








INC 


R4 


; INDICATE THAT NXT TIME GOING 


2613 
















;FROM 'INADR' TO 'OUTADR' 


2614 


007170 


062737 


000040 


001262 




ADD 


#40,OUTADR 


; INCREMENT CYCLINDEP ADRES 


2615 


007176 


000137 


006664 






JMP 


1$ 


;G0 BAK & DO IMPLIED SEEK 


2616 
















;FROM 'INADR* TO 'OUTADR* 


2617 


















2618 


007202 


005004 








CLR 


R4 


^INDICATE THAT NXT TIME GOING 


2619 
















;FROM 'OUTADR' TO 'INADR" 


2620 


007204 


162737 


000040 


001260 




SUB 


#40,INADR 


f DECREMENT CYLINDER ADRES 


2621 


007212 


005237 


001476 






INC 


INDX2 


?DONE ALL 312 FORWARD-BACKWARD 


2622 
















fSEEK PATTERNS 


2623 


007216 


001457 








BEQ 


TST6 


IflF YES* EXIT 


2624 


















2625 


007220 


000137 


006664 






m 


IS 


flF NOT, GO BAK £ DO IMPLIED 


2626 
















jSEEK FROM 'OUTADR' TO 'INADR' 


2627 


















2628 










f THIS 


SUBROUTINE IS ENTERED 


AFTER A *SIN' ERROR OCCURED ON GOING FROM 


2629 










p ^CYLA 




CYLB' AS INDICATED IN THE ERROR MESSAGE « BEFORE RETRYING THE 


2630 










J HEADS 


HAVE 


TO BE POSITIONED 


BACK TO »CYLA« , NOTE THAT A DRIVE RESET 


2631 










fMAS DONE TO 


CLEAR SIN, 




2632 










fR4s80, 


INDICATES SEEK IS BEING DONE FROM "OUTADR* CYLINDER TO » INADR'CYLINDER 


2633 










|R48si, 


INDICATES THAT SEEK IS BEING DONE FROM 'INADR' TO *OUTADR% 


2634 


007224 


00S704 






SBR3! 


TST 


M 


J GOING WHICH WAY? 


2635 


007226 


001404 








BEQ 


1@ 


;IF FROM 'OUTADR' TO "INADR', BRANCHg 


2636 


007230 


013777 


001260 


172226 




MOV 


INA0R,iHKDA 




2637 


007236 


000403 








BR 


3$ 




2638 


007240 


013777 


001262 


172216 


ISI 


MOV 


QUTADR, ?RKDA 
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2639 007246 Ot2777 OOOOII 172202 281 MOV #li,§PKCi 



2640 O072S4 104422 TSTgRWS 

2641 007256 000207 RTS PC 
2642 

2643 

2644 ;CHKHDRS 

2645 ' fTHIS ROUTINE CHECKS THJ^f THE HEADERS READ PREVIOUSLY WERE CORRECT, 

2646 }ir MOT, THE BAD HEADERS AND THE SECTOR FROM WHICH THEY WERE READ 

2647 I ARE STORED ^ 

2648 fON ENTRYl 

2649 }RS CONTAINS DISK ADDRESS FROM WHERE HEADERS WERE READ^ 

2650 jOUTBUF - 12 HEADRERS READ PREVIOUSLY APE STORED STARTING ^OUTBUF% 

2651 fON EXITS 

2652 fINDX3sO# IF THE HEADERS WERE CORRECT 

2653 fINDX3ssl, IF THE HEADERS WERE INCORRECT 

2654 pBUFR ^ SECTOR «»S GIVING BAD HEADRERS ARE STORED STARTING AT 'BUFR^^ 

2655 iBUFRl « BAD HEADERS FOR THE ABOVE SECTORS ARE STORED STARTING 'BUFRl*^ 

2656 jTHE BAD SECTOR TABLE IS TERMINATED BY A "177777* WORD, 
26S7 

2658 007260 005000 CHKHDRSi CLR RO flNITIALIZE FOR 14 HDRS 



2659 


007262 


012701 


026446 




MOV 


#0UTBUF,R1 


jINITIZLIZE PTR TO HDRS RECVD 


2660 


007266 


012702 


001266 




MOV 


#BUrR»R2 


(INITIALIZE PTR TO SECTOR TABLE 


2661 


007272 


012703 


001320 




MOV 


#BUFR1,R3 


/INITIALIZE PTR TO BAD HDR TABLE 


2662 


007276 


010537 


001120 




MOV 


RSySGDADR 




2663 


007302 


042737 


160037 001120 




BIC 


8160037, SGDADR 


>GET EXPCTD HEADER 


2664 


007310 


005037 


001500 




CLR 


INDX3 


jCLR FLG INDICATING BAD HDRS 


2665 
















2666 


007314 


023711 


001120 


9Si 


CMP 


SGDADR, (Rl) 


; HEADER OK? 


2667 


007320 


001406 






BEQ 


10$ 


J YES, BRANCH 


2668 


007322 


011123 






MOV 


(Rl),CR3)* 


J SAVE BAD HDR 


2669 


007324 


010022 






MOV 


RO, CR2D+ 


J SAVE BAD SECTR # 


2670 
2671 


007326 


012712 


177777 




MOV 


#177777, CR2) 


IPUT TERMINATR ON SECTR TABLE 


2672 


007332 


005237 


001500 




INC 


INDX3 


>SET FLG INDICATING BAD HDR 


267 3 


007336 


005721 




logi 


TST 


(Rl) + 


jINCRMNT PTR TO NXT HDR 


2674 


007340 


O05200 






INC 


BO 


; ALL HDRS CHKD? 


2675 


007342 


022700 


000014 




CMP 


»14,R0 




2676 


007346 


001362 






8NE 


9S 


; IF NOT, LUP BAK 


2677 


007350 


000207 






RTS 


PC 




2678 
















2679 


007352 


004737 


016772 


EXTSi 


JSR 


PC, ABRT 





268U 



2681 f I 

2682 >*TEST 6 WRITE PATTERNS ON THE DISK 

2683 j*IN THIS TEST DIFFERENT PATTERNS APE WRITTEN ON THE ENTIRE DISK. 768 

2684 >*WORDS (3 SECTORS) ARE WRITTEN AT A TIME, TWO 768 WORDS LONG 

2685 }»BUFFERS HAVE BEEN USED IN THIS TEST, WHILE ONE BUFFER IS , 

2686 >»USED TO WRITE ON THE DISK, THE OTHER BUFFER GETS FILLED UP WITH 

2687 >«PATTERNS TO BE USED NEXTJ THIS OVERLAPPING IS DONE TO SAVE TIME, 

2688 

2689 j»THREE PATTERN«GENERATOR SUB«ROUTINES ARE USED: 

2690 ;*1 , PTGENO 2« PTGENl 3. PTGEN2 4, PTGEN3 

2691 (*THESE THREE ROUTINES ARE CALLED IN A CYCLIC ORDER! 

2692 j« PTGEN0-PTGEN1«PTGEN2-PTGEN3-PTGEN0»PTGEN1 , 

2693 |*THE FOLLOWING ORDER IS MAINTAINED IN WRITING BLOCKS (EACH 

2694 }#3 SECTORS LONG) USING ONE OF THE FOUR PATTERN GENERATORS! 
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2695 








2696 








2697 








2698 








2699 








2700 








2701 








2702 








2703 








2704 








270S 








2706 








2707 








2708 








2709 








2710 








2711 








2712 








2713 








2714 








2715 








2716 








2717 








2718 








2719 


007356 


000004 




2720 


007360 


012737 


177764 


2721 


007366 


012737 


177764 


2722 


007374 


012737 


177iS2 


2723 


007402 


005037 


001410 


2724 


007406 


005037 


001412 


2725 








2726 








2727 








2728 


007412 


013737 


001230 


2729 


007420 


012737 


001414 


2730 








2731 


007426 


004737 


010044 


2732 


007432 


017737 


171766 


2733 


007440 


004777 


i7S7S4 


2734 








2735 


007444 


OOSOOS 




2736 


007446 


005737 


001410 


2737 


007452 


100407 




2738 


007454 


013737 


001406 


2739 








2740 


007462 


052737 


000200 


2741 








2742 








2743 


007470 


000406 




2744 








274S 


007472 


013737 


001404 


2746 








2747 








§748 


007SQ0 


0S2737 


000200 


2749 








27S0 


007S06 


012737 


00TS14 



li^CYL 


SECTORS 


CYL 




SECTORS 


CYL 




SECTORS 


CYL 


SECTORS 


;» SUR 




ROUTINE 




BUR 




ROUTINE 




SUR 




ROUTINE 




SUR POUTI 


)» 


0«2 


PTGENO 








6«10 


PTGENl 








3-5 


PTGEN2" 





11«13 PTGEN3 


I* i 


0-2 


PTGENO 





1 




PTGENl 





i 


3-5 


PTGEN2 





1 11-13 PTGEN3 


j« 1 


0-2 


PTGENO 


1 





6-10 


PTGENl 


1 





3«5 


PTGEN2 


I 


11-13 PTGEN3 


>» 1 1 


0«2 


PTGENO 


1 


i 


6-10 


PTGENl 


I 


I 


3»5 


PTGEN2 


I 


1 11-13 PTGEN3 


S# 2 


0-2 


PTGENO 


2 





6«10 


PTGENl 


2 





3"5 


PTGEN2 


2 


11-13 PTGEN3 


j*ETC, ETCgsess 

























j»THE ABOVE SHOWN STAGGERING 
|»SAVE ONE REV (40MS} EVERY 
>»ir YOU WANT TO USE BUFFERS 
j»MAKE THE FOLLOWING CHANGES 
|»CHANGE 'PBUFO* TO STARTING 
)*CHANGE 'PBUFl' TO STARTING 



(OF SECTORS TO BE WRITTEN) IS DONE TO 
TIME A BLOCK (3 SECTORS) IS WRITTEN. 
STARTING AT SOME OTHER MEMORY ADDRESS 

ADDRESS OF THE FIRST 768 WORDS LONG BUFFER, 
ADDRESS OF SECONt) 768 WORDS LONG BUFFER* 



001S04 
00iS06 
001474 



001432 
001424 



001430 



001434 
001411 



;»IF YOU WANT TO WRITE YOUR OWN PATTERNS USING PATTERN GENERATOR 'PTGENO' 
|»CHANGE 'PTRNOI* AND *PTRN02' TO THE PATTERNS YOU WANT, 

>«T0 WRITE THE SAME TWO (OR ONE) PATTERNS ON THE ENTIRE DISK CHANGE 

jftLOCATION 'PATl' TO *PTGENO» THE STARTING ADDRESS OF PAT-GEN&RATOR 

>*LOCATION •PAT2' TO 'PTGENO' THE STARTING ADDRES OF PAT-GENERATOR 

|»LOCATION •PAT3'' TO 'PTGENO' THE STARTING ADDRESS OF PAT-GENERATOR 

TST6I SCOPE 



ISS 
211 



MOV 
MOV 
MOV 
CLR 
CLB 



my 

MOV 

JSR 
MOV 
JSR 

CLR 

TST 
BMI 
MOV 

BIS 



BIS 
MOV 



#"14,ERCNT1 
#"14,ERCNT2 

#'«626,INDX1 

BUFLGO 

BUFLGl 



DRIVAD,DSKADR 

#PAT0,PRSPAT 

PCGETBUr 

fPRSPAT,PGSUBR 

PCiPGSUBR 

R§ 

BUFLGO 
3$ ' 

PBUFl, iUSADR 
#BIT7*BUFLG1 



i3S 

PBUFOjBUSADR 

9BIT7, BUFLGO 

#4$,$liPERR 



ISET COUNT FOR 313X2 TRACKS 

}CLR FLAG FOR BUFR 

jCLR FLAG FOR BUFR 1 

;BIT 7 OF ABOVE FLAGS WHEN SET 

f INDICATES, THAT BUFR TO BE USED 

?FOR WRITING ON DSK 

;GET DRIVE #, DISK ADRES 

f INITIALIZE PTR TO THE FIRST 

JPATRN GENERATOR 



BLOCKS 
USE 



;G0 GENERATE PATRNS FOR 
|3 SECTOR (400X3) 
(INITIALIZE COUNT FOR 4 
(FIND OUT WHICH BUFR TO 
(FOR WRITING ON DSK 
(USE 'lOBUFl' FOR TRANSFER 
(OR THE ONE INDICATED BY THE USER 
(SET FLAG TO INDICATE THAT 
( WRTING ON DSK WILL B DONE FROM 
(THIS BUFR (BUF I) 



(USE 'lOBUFO' FOR TRANSFER 

(OR THE ONE INDICATED BY THE USER 



( INDICATE THAT *IOBUFO' WILL 
(B USED FOR WRTING ON DISK 
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27S1 


007S14 


011777 


001-412 


171742 


4Si 


MOV 


DSKADPjfRKDA 


2752 


007522 


013777 


001434 


171732 




MOV ■ 


BUSADR;iRKBA 


27S3 


007S30 


012777 


176400 


S7S722 




MOV 


#«'t400»tRKWC 


2754 


007S36 


012777 


000003 


171712 




MOV 


S3#iRKCS 


27§5 
















2756 


007S44 


013737 


001424 


001436 




MOV 


PRSPAf ffNXTPAf 


2757 


007SS2 


023727 


001424 


001422 




CMP 


PRSPATj#PAf3 


2758 


007S60 


00i004 








BNE 


51 


2759 


007562 


012737 


001414 


001426 




MOV 


iPATOiNXfPAT 


2760 


007S70 


000403 








BR 


6$ 


2761 


007572 


062737 


000002 


001426 


S$S 


ADD 




27S2 


007600 


004737 


010044 




611 


JSB 


PCGSTBUF 


2763 


007604 


017737 


171616 


001430 




MOV 


fNxfPATjPGSUBR 


2764 


0076i2 


004777 


171S12 






JSH 


PC,iPGSUBR 


276S 
















2766 


007Si6 


104421 








CONsRDY 




2767 


007620 


032777 


140000 


171630 




BIT 


#140000#@RKCS 


2768 


007626 


001411 








BEQ 


12$ 


2769 


007630 


004737 


016162 






JSB 


PC,GT4RG 


2770 


007634 


104021 








ERROR 


21 


2771 


007636 


104415 








CON^RESET 


2772 


007640 


005237 


001504 






INC 


ERCNTl 


2773 


007644 


001002 








BNE 


12$ 


2774 


007646 


000137 


010432 






JMP 


EXT6 


2775 


007652 


032777 


OOiOOO 


171S72 


i2S§ 


BIT 


#Blf9#§RKDS 


2776 


007660 


001412 








BEQ 


7$ 


2777 


007662 


004737 


016162 






JSB 


PC|GT4RG 


2778 


007666 


104022 








ERROR 


22 


2779 


007670 


10441S 








CONjRESEt 


2780 


007672 


104416 








DRVaRESET 


2781 


007674 


005237 


001506 






iNC 


ERCNT2 


2782 


007700 


001002 








BNE 


7$ 


2783 


007702 


000137 


010432 






JMP 


EXT6 


2784 
















2785 
















2786 


007706 


10S737 


001410 




7SI 


TSTB 


BUrLGO 


2787 


007712 


1 00003 








BPh 


80 


2788 


007714 


005037, 


001410 






CLB 


BUFLGO 


27a9 




















U U U '* iJ iS 








BR 


9S 


2791 


007722 


005037 


001412 




e$i 


CLR 


BUFLGl 


2792 
















2793 


O07726 


013737 


001426 


001424 


9SI 


MOV 


NXTPATyPRSPAT 


















2795 


007734 


010500 








MOV 


R5,R0 


2796 


007736 


1 16000 


010426 






MOVE 


SECPTRCR03#R0 


2791 


007742 


042737 


000017 


001432 


10$i 


BIC 


#17»DSKADR 


2798 


007750 


U50037 


001432 






BIS 


ROfDSKADR 


2799 


007754 


005205 








INC 


R5 


2800 


007756 


022705 


000004 






CMP 


#4,R5 


28ul 


007762 


001231 








BNE 


2S 


2802 
















28 3 


007764 


032737 


00000! 


001474 




BIT 


#BIT0^ INDXl 


2804 


007772 


001415 








BEQ 


US 


2805 


007774 


005237 


001474 






INC 


INDXl 


280b 


05 0000 


001002 








BNE 


8*6 



J WRITE THE 4 SECTORS ON 
fDlSK ■ 

{WHILE THE PATRNS R BEING WRITTEN 
J GO GENERATE THE NXT PATRNS 
|T0 B WRITTEN 

JKEEP GENERATING PATRNS IN THIS 

I WAY «PAT0S'«.«PAT1«'»«PAT2««»^PAT3««»PAT0* 



I GO GENERATE THESE PATRNS, 
?(3 X 400) WORDS 

JANY ERRORI 

fGET RKCS*ERiDS,DA 

fERROR ON DOING WRITE 
;CLEAR IT 

I ALLOW 12 ERRORS AT MOST 

flF MORE, EXIT 

jSINf ON DOING WRITE? 



ISIN ERROR ON DOING WRITE 



?ALLOW 12 ERRORS AT MOST 



jriGURE OUT WHICH BUFFER IS 
J AVAILABLE FOR USE 
?WAS PREVIOUS DSK-WRIfE DONE 
lUSING BUFP 0? 

;YES, CLR FLAG INDICATING IT'S 
J AVAILABLE NOW 

iCLB FLAG INDICATING BUFRl 
lis AVAILABLE NOW 
; *PRSPAT'S PATRNS WILL BE USED 
fON NEXT WRITE 

;FORM SEC # TO BE USED NXT TIME 
?GET SEC # 

jMASK SECTOR BITS FROM DSK«»ADRES 

?FOPM NXT DSK«»ADRES 

jDONE WITH 12 SECTRS {3 BLOCKS}? 



;0N THIS SURFACE? IF NOT, GO 

J DO NXT 4 SECTRS 

; WHICH SURFACE WAS DONE, OR 1? 
J IF 0, GO DO SURFACE 1 
jCOUNT » OF TRACKS 
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2807 


010002 


000137 


010436 


2808 


010006 


042737 


000020 


2809 


010014 


062737 


000040 


281 


010022 


000137 


007444 


2811 


010026 


005237 


001474 


28 12 


010032 


052737 


000020 


281 3 


010040 


000137 


007444 


2814 








2815 








2816 








2817 








2818 








2819 








2820 








2821 


010044 


005737 


001410 


2822 


010050 


100007 




2823 


01 005 2 


052737 


100000 


2824 


010060 


013737 


001406 


2825 


010066 


000207 




2826 


010070 


052737 


100000 


2827 


010076 


013737 


001404 


2828 


010104 


000207 




2829 








2830 








2831 








2832 








2833 








2834 








2835 








2836 








2837 








2838 


OJ 0106 


013700 


001446 


2839 


010112 


013701 


010164 


2840 


010116 


012702 


177400 


2841 








2842 


010122 


010120 




2843 


010124 


005202 




2844 


010126 


001 375 




2845 








2846 


010130 


012702 


177400 


2847 


010134 


005101 




2848 


010136 


010120 




2849 


010140 


005202 




2850 


010142 


001375 




2851 


010144 


012702 


177400 


2852 


010150 


013701 


OIOISS 


2853 








2854 


010154 


010120 




2855 








2856 


010156 


00S2O2 




2857 


010160 


001375 




2858 








2859 


010162 


000207 




2860 








2861 


010164 


1252S2 




2862 


010166 


010421 





WRITE 


PATTERNS ON THE 


DISK 


JMP 


TST7 


lEXIT IF DONE 


BIC 


#20,DSKADB 


?G0 TO SUR 0, NEXT CYLINDER 


ADD 


#40,DSKADR 




JMP 


is 


fGO BACK AND DO WRITE 


INC 


INDXl 


;COUNT OF TRACKS 


BIS 


»20,DSKADR 


;SET BIT FOR SUR 1 


JMP 


IS 


;G0, WRITE PATRNS Of' SURFACE 



f^*GET BUF# 

>»THIS ROUTINE FINDS OUT WHICH BUFFER (lOBUFO, lOBUFl ) OR ONE OF 
f *THE TWO BUFFERS SELECTED BY THE USER} TO USE 

j*FOR GENERATING PATTERNS, THEN IT SETS UP A FLAG INDICATING THAT 
>»BUFFER HAS TO BE FILLED UP, THE STARTING ADDRESS OF THE 
|»BUFFEP IS STORED IN ^BUF »' , 



GETBUFi TST 
BPL 

BIS 
MOV 
RTS 

l$l BIS 
MOV 
RTS 
l<*PTGENO 

|»THIS ROUTINE GENERATES A 768 (3X256) WORDS LONG 
l*BUFFER CONTAINING THE FOLLOWING PATTERNS 
|»FIRST BLOCK OF 256 WORDSl 125252 

l»SECOND BLOCK OF 256 WORDSt 052525 (COMPLEMENT OF ABOVE) 
>»THIRD BLOCK OF 256 WORDSt 010421 
>*YOU CAN USE ANY OTHER PATTERN/S (& ITS COMPLEMENT) 
f»MAKING THE CHANGES IN THE 2 LOCATIONS SHOWN BELOW« 



BUFLGO 

1$ 

#BIT15, BUFLGl 

PBUF1,BUFN0 

PC 

«BIT15, BUFLGO 
P8UF0,BUFN0 

PC 



;BUFR AVAILABLE FOR USE? 
?YES, BRANCH 

I NO, USE BUFR 1 , INDICATE SO, 
J SAVE STARTING ADRES OF BUFRl 

f INDICATED, USING BUF 
fSAVE STARTING ADRES OF BUFR 
; RETURN 



PTGENOJ 


MOV 


BUFNO,RO 


IGET STARTING ADRES OF 




MOV 


PTRH01,R1 


IGET PATRN TO BE GENERATED 




MOV 


#'«400,R2 


;IN THE FIRST 400 WORD BLOCK 


111 


MOV 




; GENERATE THE FIRST BLOCK 




INC 


R2 


JWITH ^PATOl" PATRN 




BNE 


11 


J ALL DONE? 




MOV 


#-400, R2 






COM 


Rl 


^COMPLEMENT "PATOl* PATAN 


218 


MOV 


Rls (RO}'S- 


{GENERATE 2ND BLOCK WITH 




INC 


R2 


; 'PATOl'S COMPLEMENT PATRN 




BNE 


20 


J ALL DONE? 




MOV 


#««400,R2 






MOV 


PTRN02,R1 


jGET PATRN TO BE GENERATED 








jFOR 3RD BLOCK 


31! 


MOV 


Rl, (R03* 


{GENERATE 3RD BLOCK USING 








) 'PAT02' PATRN 




INC 


R2 






BNE 


3$ 


{ALL DONE? 




RTS 


. PC 


{RETURN 


PTRNOll 


125252 




{CHANGE THESE LOCATIONS IF 


PTRN02t 


010421 




{YOU WANT ANY OTHER PATTERNS 
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2833 
















2864 








i#PTGENi 






2865 








;»THZS 


ROUTINE 


GENERATES A 768 


(3X256) WORDS 


2866 








1 ALONG 


BUFFER 


CONTAINING THE FOLLOWING PATTERNSi 


2867 
















2868 








|»FIRST 


BLOCK^ 


236 WORDS 000001 


FILL 1*S 


2869 








!«• 




000003 




2870 












9 




2871 








!«• 




177777 




2872 
















2873 








jftSECOND BLOCK 


177776 


FILL O'S 


2874 












177774 




2875 








f « 




S 




2876 












000000 




2877 
















2878 








;»THIRD 


BLOCK 


000001 


FLOAT A 1 


2879 








l# 




000020 




2880 








l» 




i 




2881 








1® 




100000 




2882 
















2883 








ttt'BUFNO' CONTAINS THE STARTING 


ADDRESS OF THE 


2884 








r*BurFER» 






2885 
















2886 


010170 


012703 


000001 


PTGENll 


MOV 


#1,R3 


{INITIALIZE PATRNS 


2887 


010174 


012704 


177776 




MOV 


#177776, R4 




2888 


010200 


013700 


001446 




MOV 


BUFNO,R0 


fGET STARTING ADRES 


2889 


010204 


012702 


177760 




MOV 


#"=20, R2 


J SET COUNT 


2890 


010210 


010301 




iSl 


MOV 


R3,R1 


;INITIAHZE PATRN 


2891 


010212 


010120 




211 


MOV 


Rl, (R0)+ 


{GENERATE THE FIRST 


2892 


010214 


000261 






SEC 




; BLOCK USING "FILL l'S» 


2893 


010216 


006101 






ROL 


Rl 




2894 


010220 


103374 






BCC 


2$ 




2895 


010222 


00S202 






INC 


R2 




2896 


010224 


001371 






BNE 


18 


7ALL DONE? 


2897 
















2898 


010226 


012702 


177760 




MOV 


#'«20,R2 




2899 


010232 


010401 




3ii' 


MOV 


R4,P1 


{INITIALIZE PATRN 


2900 


010234 


010120 




4$S 


MOV 


Rl, CROU 


{GENERATE 2ND BLOCK 


2901 


010236 


000241 






CLC 




{USING "FILL O'S" 




1 S 4 


nn&i n i 

V Uo i u i 






POL 


Rl 




2903 


010242 


103774 






BCS 


4$ 




2904 


010244 


005202 






INC 


R2 




2905 


010246 


001371 






BNE 


3S 


{DONE? 


2906 
















2907 


010250 


012702 


177780 




MOV 


#-20, R2 


{SET COUNT 


2908 


010254 


010301 




3$! 


MOV 


R3,R1 


{ INITIALIZE PATRN 


2909 


010256 


010120 




gfl 


MOV 


Rl, (R0)+ 


{GENERATE THE 3RD BLOCK 


2910 


010260 


006301 






ASL 


Rl 


{USING "FLOAT A 1« 


2911 


010262 


103375 






BCC 


60 




2912 


010264 


005202 






INC 


R2 




2913 


010266 


001372 






BNE 


3$ 


{DONE? 


2914 


010270 


000207 






RTS 


PC 


{RETURN 


2915 
















2916 














2917 








)*THIS 


ROUTINE 


GENERATES A 768 


(3X256) WORDS LONG 


2918 








l»BUFFER CONTAINING THE FOLLOWING PATTEPNSi 
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2919 
2920 

2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
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29S9 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 



{»FIRST BL0CK"256 WORDS 000000 



{* 

j# 

)»SECOND BLOCK 

I* 
f* 
{« 

I^THIRD BLOCK 

l« 

l# 



000001 
000002 

i 

000377 

000000 
000400 
001000 

I 

177400 

000000 
000401 

S 

177777 



COUNT PATRN^LOWER BYTE 

0«377 



COUNT PATRN»HIGHER BYTE 
'0"377 



COUNT PATRN-HIGHER & LOWER BYTE 
0-377, 0»377 



l»»BUFNO' CONTAINS THE STARTING ADDRESS OF THE BUFFER^ 



2939 


010272 


005001 




PTGEN2S 


CLR 


Rl 


{INITIALIZE PATRN 


2940 
















2941 


010274 


013700 


001446 




MOV 


BUFNOrRO 




2942 


010300 


010120 




i$i 


MOV 


Rl, (RO)* 


^ {GENERATE 1ST BLOCK USING 


2943 


010302 


105201 






INCB 


Rl 


{USING 'COUNT UP LOWER BYTE' 


2944 


010304 


00137S 






BME 


11 


{DON-E? 


2945 
















2946 


010306 


005001 






CLR 


Rt 




2947 


010310 


010120 






MOV 


Rl, (R0)+ 


{GENERATE 2ND BLOCK 


2948 


010312 


062701 


000400 




ADD 


#400, Rl 


{USING 'COUNT UP HIGHER BYTE' 


2949 


010316 


103374 






BCC 


2S 


{DONE? 


2950 


010320 


005001 






CLR 


Rl 




29S1 


010322 


010120 




3SS 


MOV 


Rl, (R0)4- 


{GENERATE 3RD BLOCK USING 


2952 


010324 


062701 


000401 




ADD 


#401»R1 


{ 'COUNT UP HIGHER & LOWER BYTE' 


29S3 


010330 


103374 






BCC 


3S 


{ALL DONE? 


29S4 


010332 


000207 






RTS 


PC 


{RETURN 


29S5 
















2956 
















2957 








pPTGENS 








2958 








}#THIS 


ROUTINE 


GENERATES A 76 


8 (3X256) WORDS LONG 



,«BUFFER CONTAINING THE FOLLOWING PATTERNS! 
I*FIRST BLOCK OF 256 WORDSl 



{^SECOND BLOCK 

I ^ 

f#THlRD BLOCK 
1^ 



177776 
177775 

I 

077777 

000377 
000776 

i 

177400 



167356 (COMPLEMENT OF 010421) 
FLOAT A 



COUNT UP HIGHER BYTE 0«377 
COUNT DOWN LOWER BYTE 377-0 



l^'BUFNO* CONTAINS THE STARTING ADDRESS OF THE BUFFER, 
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2975 


010334 


013700 


2976 


0103^0 


012702 


2977 


010344 


013701 


2978 


010350 


005101 


2979 


010352 


010120 


2990 


01 0354 


005202 


2981 


010356 


001375 


2982 






2983 






2984 


010360 


012702 


2985 


010364 


000261 


2986 


010366 


012701 


2987 


010 3 7 2 


01 0120 


2988 


010374 


006101 


2989 


010376 


103775 


2990 


010400 


005202 


2991 


010402 


001370 


2992 






2993 






2994 


010 404 


012701 


2995 


010410 


010102 


2996 


010412 


010120 


2997 


01041 4 


060201 


2998 


01 0416 


0227 01 


2999 


010422 


001373 


3000 


010424 


000207 


3001 






3002 






300 3 






3004 


010426 


006 


3005 


010427 


003 


3006 


010430 


Oil 


3007 


010431 


000 


3008 






3 09 


010432 


004737 


30 1 






301 1 






3012 






3013 






3014 






301 5 






3016 






3017 






30 I 8 






3019 






3020 






3021 






30 2 2 






30 23 






3024 






3025 






3026 






30?7 






3028 






3029 






3030 







001446 
177400 

010166 



177760 
177776 



PTGEN3I MOV 
MOV 
MOV 
COM 

4Si MOV 
INC 

BME 



1$l 
8$i 



MOV 
SEC 
MOV 
MOV 
ROL 
BCS 
INC 
BNE 



MOV 
MOV 
MOV 
ADD 
CMP 
BNE 
RTS 



PTPN02f Rl 
Rl 

m 
4$ 



#1777?6yP.i 
CR03# 

Rl 
8$ 
R2 
7$ 



#377yRl 
R1,P2 
Rli (RO)* 

R2,R1 
Rl 

9S 

PC 



J GET PATTERN 

^COMPLEMENT *PAT02' PATRN 
; GENERATE |ST BLOCK 



; 3RD BLOCK 

; GENERATE 3RD BLOCK USING 
; 'COUNT DOWN LOWER BYTE" 
; 'COUNT UP HIGHER BYTE' 

;ALL DONE? 

I RETURN 



I SECTOR POINTER TABLE j DATA TRANSFERS APE DONE IN BLOCKS (3 SECTORS 
f EACH) IN THE CYCLIC ORDERj 0^2, 6»10, 3»5» 11-13, 0"2f AND SO ON ^ 
SECPTRj ,BYTE 6 

»BYTE 3 

.BYTE 11 

jBYTE 



EXT6J 



JSR 



PC, ABRT 



;«IEST 7 READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 

;«»*«TEST 6 (WRITING PATTERNS ON DISK) SHOULD BE DONE BEFORE UOING**** 

I'^s^^'THIS TEST a**«* 

j*IN THIS TEST THE PATTERNS THAT WERE WRITTEN BEFORE (IN THE 

}*PREVIOUS TEST) ARE READ BACK AND SOFTWARE COMPARED, 

j*WHILE THE SOFTWARE COMPARISON IS TAKING PLACE, AN OVERLAPPING 

l*'WRITE CHECK' IS DONE FOR THE SAME BLOCK, THE READING 
;*BACK OF EACH BLOCK (4 SECTORS) IS DONE IN THE SAME 
,»MANNER AS DESCRIBED IN THE BEGINNING OF PREVIOUS TEST» 
;»OVERLAPPING OPERATIONS AND STAGGERING OF BLOCKS ARE DONE IN 
J#A SIMILIAR MANNER^ 

>«THE FOLLOWING IS A DESCRIPTION OF HOW ERRORS ARE HANDLED, 
j»IF A 'SIN* OR 'HE' OCCURS IT IS REPORTED AND THAT BLOCK 
>*IS SKIPPED, IN THIS STAGE OF TESTING THESE ERRORS SHOULD NUT 
j»NORMALLY OCCUR, 

|«IF A CHECKSUM ERROR OCCURS, CONTROL IS TRANSFERRED TO 
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30 31 






303?. 






10 3 3 






3034 






3035 






3036 






3037 






3038 






3039 






3040 






3041 






3042 






3043 






3044 






3045 






3046 






3047 






3048 






3049 






3050 






3051 






3052 






3053 






3054 






3055 


010436 


000004 


3056 


010 4 4 


012737 


3057 


010446 


012737 


3 05 8 


01 0454 


012737 


3059 


010462 


012737 


3060 


01047 


012737 


3061 


01 0476 


012737 


3062 


010504 


012737 


3063 


010512 


005037 


3064 






3065 


OIO5I6 


012737 


3066 


010524 


013737 


3067 






3068 






3069 


010532 


005037 


3070 


010536 


005037 


307 1 


010542 


012737 


3072 


010550 


012737 


3073 


010556 


012737 


3 07 4 






3075 


010564 


013737 


3076 


010572 


013737 


3077 






3078 


010600 


012737 


3079 






3080 


010606 


013737 


3081 


010614 


012737 


3062 


010622 


013737 


3083 






3084 






3085 


010630 


000404 


3086 







177764 
177773 

177742 
177742 
177764 
177742 
177152 
001476 

001414 
001230 



001504 
001506 
177775 
177776 
000003 

001450 
001406 



001450 
176400 

001404 



;*'CSERROR» » FIRST THE CSE IS REPORTED, THE SECTOR GIVING 
)«CSE IS READ AGAIN, IN ALL 3 TRIES ARE DONE, IF STILL 
>»THE ERROR PRESISTS THAT SECTOR IS ABORTED AND THE REST 
j*OF THE SECTORS ARE READ AND CHECKED FOR CSE, IF 
)«AGAIN SOME OTHER SECTOR GIVES CSE, REPORTING AND RETRIES 
|»APE DONE AGAIN, 

:*NEXT SOFTWARE COMPARISON IS DONE OF THE DATA THAT WAS 

;«READ BACK. ON GETTING A DATA MISCOMPARISON 

j»THE RELEVANT INFO(GOOD DATA, BAD DATA, ADDRESS ETC 9) IS 

jttSTORED, AFTER THE WHOLE BLOCK HAS BEEN CHECKED, THE DATA 

j«ERRDR/S IS/ARE REPORTED « THEN THE BLOCK IS READ AGAIN, IN ALL 

|*THREE TRIES ARE DONE, 

:*WHILE THE DATA COMPARISON (SOFTWARE) IS GOING ON THE 'WRITE 
I*CHECK' IS ALSO IN PROGRESS « IF A WRITE CHECK ERROR OCCURS THE 
;»CONTROL IS TRANSFERRED TO "WCEROR' , WRITE CHECK OF THE SECTOR 
|»THAT GAVE WCE IS DONE AGAIN, IN ALL THREE TRIES ARE DONE, 
;»NOTE THAT EVERY WCE IS REPORTED, IF ALL THE 4 SECTOR OF 
BLOCK GAVE WCE'S, ALL 4 WILL BE REPORTED AND RETRIED, 

j»DEPENDING ON THE NATURE OF THE PROBLEM, THE ABOVE ERRORS 
)*CAN OCCUR IN ANY COMBINATION, IT IS RECOMMENDED THAT ALL 
l«THE ERROR MESSAGE BE CAREFULLY CORRELATED AND EXAMINED, IT 

?#WILL PROVIDE A DEEP INSIGHT INTO THE PROBLEM, 

TST7I 



001510 
001512 
001514 
001516 
001520 
001522 
001474 



001424 
001450 



001252 
001254 
001256 

001440 
001442 



176400 001444 



001432 
001436 
001434 



SCOPE 






MOV 


#'«14*ERCNT3 


?ALLOW 12 ERRORS AT THE MOST 


MOV 


#«5,ERCNT4 


; ALLOW S ERRORS AT THE MOST 


MOV 


#«36,ERCNT5 


; ALLOW 10 ERRORS AT THE MOST 


MOV 


«»36,ERCNT6 


; ALLOW 10 ERRORS AT THE MOST 


MOV 


g»l4,ERCNT7 


; ALLOW 12 ERRORS AT THE MOST 


MOV 


»-36,ERCNT8 


; ALLOW 10 ERRORS AT THE MOST 


MOV 


#«626,INDX1 


;SET COUNT FOR 626 TRACKS 


CLR 


INDX2 


jCLR COUNT FOR 4 BLOCKS ON A TRACK 


MOV 


#PATO#PRSPAT 


1 INITLZE PTR TO PATRN GENRTR 


MOV 


DBIVAD, ADRES 


jINITLZE DRV»,ADRES 


CLR 


ERCNTl 


J IF > Of MEANS THAT RETRIES 


CLR 


ERCNT2 


iDONE AFTER CSE OR CSE CHKD 


MOV 


#»»3»RETRyi 


? RETRY COUNT FOR CSE 


MOV 




J RETRY COUNT FOR SFTWRE MISCMP*N 


MOV 


#3,RETRY3 


; RETRY COUNT FOR WCE 


MOV 


ADRES,WDSKAD 


;DISK ADRES TO WRT CHK WITH 


MOV 


PBUF1,WBUSAD 


?USE THIS BUFR 1 TO WRT CHK 






|DR THE BUFR INDICATED BY THE USER 


MOV 


#^1400, WWRDCN 


J WRT CHK 1 BLOCKB3SECSai400 WRD5 


MOV 


ADRES,DSXADR 


pDlSK ADRES TO READ FROM 


MOV 


#«i400*WRDCNT 


}i BLOCK a 3 SECTORS s 1400 WRDS 


MOV 


PBUFOjBUSADR 


|USE 'lOBUFO' TO READ INTO 






|0R THE BUFR INDICATED BY THE USER 


BR 


RDAGAIN 
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3087 


01 0632 


1 04 4 1 S 






LUPSINl 


CON 


RESET 




3088 


10634 


1 04416 








DRVbRESET 




308 9 


010636 


000 40 i 








BR 




RDAGiilM 




3090 




















3091 


1 0640 


104415 






LUPHEs 


CON 


RESET 




3092 




















3093 


- 

010642 


013777 


001432 


a70©14 


RDAGAINt 




MOV DSKADR, 


iRKuA JH&AU r HUM THIS uSSv®'ADKe.S 


3094 


OiOgSO 


013777 


001436 


1 70S02 




MOV 




WRDCNT? f RKWC 


fitlia UP wUKUo 


3095 


01065S 


013777 


001434 


170S76 




MOV 




BUSADR, @RKBA 


• TMITS fUTC BIIS<D 


3096 




















3097 


1 0664 


01^7 il 




1 703©^ 




MOV 




#405,§RKCS 




309i 




















3099 






















1 0S7 2 


013737 


00140S 


001446 








PBUrUBUFNO 




3101 


010700 


017737 


170S20 


001430 




MOV 




@PRSPAT,PGSUBR 




3102 


010705 


00477? 


170516 






JSR 




rt. , y rGSUiSH 


fGO GENERATE A BUFFER 






















3104 




















3105 




















3106 


010712 


104421 








CON 






SDONE WITH PATRN GENRTNG, 


3107 




















3108 




















3109 
3110 




















^ ! ! i 






A A ft ft A A 
U Ti U V U U 


1 70S 34 




BIT 




#BIT14,@RKCS 


?HARD ERROR? 


3112 


010722 


001416 








BEO 




NOHE 




3113 
3114 


010724 


0127 37 


010640 


001 110 




MOV 




<fLUPHE,SLPERR 




3115 


0107 32 


0047 37 


0SS214 






asR 




PCGETINF 




3116 


010736 


104023 








ERROR 


23 ' 


iHARD ERROR 


3117 


010740 


104415 








CON, RESET 




3118 


0107 42 


005237 


001510 






INC 




ERCNT3 




3119 


0! 0746 


001002 








BNE 




1$ 




3120 


1 07§0 




0121/0 






JMP 




EXT7 














m 


JMP 




FINISH 






010760 




J U u 


1704 


NOHEl 


BIT 




#BIT9,§RKDS 


ySlN SET? 




10766 


001417 








BEQ 




NOSIN 




3124 
3I2S 


010770 


012737 


010632 


001110 




HOV 




#LUPSIN,$LPERR 




3126 


01 0776 


004737 


016214 






JSR 




PCGETINF 




3127 


011002 


1040U 








ERROR 


11 


ISIN ON READ 


3128 


011004 


104415 








CONsRESET 




31 29 


011006 


104416 








DRV 


RESET 




3130 


! 1 1 


00S237 


001512 






INC 




ERCNT4 




3131 


011014 


001002 








BNE 




1$ 




,3132 


01 1016 


000137 


012170 






JMP 




EXT7 


; IF MORE, EXIT 


313 3 


011022 


0001 37 


011512 




ig; 


JMP 




FINISH 




3134 
3135 


01 1026 


00S737 


00150 4 




NOSIN} 


TST 




ERCNTl 


; CHECKING CSE FOR 1ST TIME 


3136 


011032 


001031 








BNE 




WRTCHK 


|N0, BRANCH 


3137 


011034 


005237 


001S04 






INC 




ERCNTl 


; INDICATE THAT CSE HAS BEEN 


3138 


















jCHECKEO ONCE 


31 39 
3140 


011040 


032777 


000002 


170406 




BIT 




#BIT1,§RKER 


ICHECK SUM EROR? 


3141 


011046 


001423 








BEQ 




WRTCHK 




3142 


01 1050 


012737 


010532 


OOiliO 




MOV 




^BEGIN,$LPERR 





DZRl 
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LE9PII 26 


-APR-77 


1 2 8 27 




T7 


READ, 


SOFTWARE COMPARE, 


WRITE CHECK OF THE PATTERNS 


43 0U0§6 


004737 


016214 






JSR 


PCGETINF 




44 011062 


013737 


001252 


001202 




MOV 


RETRY1,SREG10 


;GET THE RETRY # 


4S 011070 


062737 


000004 


001202 




ADD 


#4,SREGi0 


;SAVE IT FOR TYPEOUT 


46 011076 


104024 








ERROR 


24 


ICSE 


47 OlllOO 


005237 


001514 






INC 


ERCNT5 


; ALLOW 10 ERRORS AT MOST 


48 011104 


001002 








BNE 


IS 




49 011106 


000137 


012170 






JMP 


EXT7 


;IF MORE, EXIT 


50 011112 


000137 


011654 




111 


JMP 


CSEROR 


;G0, SERVICE CSE 


52 011116 


005037 


001506 




i^RTCHKi 


CLR 


ERCNT2 


;CLR FLAG INDICATING SOFTWARE 
















;COMPARE DONE 


54 011122 


022737 


000003 


001256 




CMP 


#3, RETRY! 


jWRT CHK DONE BEFORE OR 


5S 011130 


001016 








BNE 


SFTCMP 


;IT'S 1ST TIME? 
















J IF DONE, BRANCH OTHERWISE DO IT 


57 011132 


013777 


001440 


170324 


WCAGAINi 


MOV 


WDSKAD,@RKDA 


;WRT CHK FROM THIS DSK-ADRES 


58 011140 


013777 


001444 


170312 




MOV 


WWRDCN,@RKWC 


;THIS « FO WORDS 


59 011146 


013777 


001442 


170308 




MOV 


WBUSAD,@RKBA 


;WITH THIS BUFFER 


81 011154 


012777 


000407 


170274 




MOV 


#407,iRKCS 


;WRT CHK,GO,SSE 


63 011162 


OOS337 


001256 






DEC 


RETRY3 


; INDICATE WRT CHK DONE 


65 011166 


OOS737 


001506 




SFTCMPl 


TST 


ERCNT2 


;SFTWARE CMPARE DONE ONCE BEFORE? 


66 011172 


001060 








BNE 


WCREPT 


; IF SFTWARE CMPARE HAS BEEN DONE 
















;ONCE DON'T DO IT AGAIN, OTHERWISE 


6S 011174 


005237 


00150S 






INC 


ERCNT2 


?D0 JT, INDICATE IT IS DONE. 
















;MORE THAN ONCE BEFORE, 
















J IF THIS IS 1ST TIME THRU & 
















jWRT CHK WAS DONE ONCE BEFORE 
















;D0 SOFTWARE COMPARISON OF 
















;THE DATA THAT WAS READ FROM 
















J THE DISK 


7S 011200 


012702 


001266 






MOV 


#BUFR,R2 


; INITLZE PTR TO BUFR STORING 
















; ADRES OF BAD DATA 


78 011204 


012703 


001320 






MOV 


#BUFRl,R3 


; STORE EXPCTD DATA STARTING HERE 


79 011210 


012704 


oousa 






MOV 


#BUFR2,R4 


; STORE RECVD (BAD) DATA 
















fSTARTING HERE 


82 011214 


QOS037 


ODSSOO 






CLR 


INDX3 


ICLR FLAG INDICATING MISCMPRE 


84 011220 


013700 


001404 




COMPARg 


MOV 


PBUFO,RO 


f INITLZE PTR TO 'RECVD DATA' BUFR 


8S 011224 


012737 


177764 


001S02 




MOV 


#^i4,INDX4 


; STORE AND REPORT 12 OR LESS DATA 


8S 011232 


013701 


001406 






MOV 


PBUF1,R| 


; INITLZE PTR TO 'EXPCTD DATA' BUFR 


87 0U236 


012737 


176400 


001260 




MOV 


#«'i400,INADR 


J SET COUNT 


88 011244 


021011 






CMPAGANi 


CMP 


(RO), (Rl) 


^CORRECT WORD READ FROM DISK? 


89 011246 


001402 








BEQ 


1$ 




90 0112S0 


000137 


012016 






JMP 


MISCMF 


fBRANCH IF MISCMPRE ERROR 


91 011254 


00S720 






ISI 


TST 


CRO)* 


lINCRMNT PTRS 


92 0112SS 


00S72i 








TST 


CBiH 


>T0 NXT WORDS 


93 OiiaiO 


00S237 


001260 






INC 


INADR 


;DONE WITH CMPRISON? 


94 01i2S4 


001367 








BNE 


CMPAGAM 


|IF NOT, COMPARE THE REST 


96 0112S6 


00S737 


ootsoo 






fST 


INDX3 


;WAS THERE A BAD DATA WORD 
















} (EVEN AFTR RETRYING) 


98 011272 


001420 








BEQ 


WCREPT 


fNO, BRANCH 
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3199 


011274 


012737 


010606 


001 1 10 


REPMSC 1 


MOV 


#READ, 0LPERR 




3200 


01 1302 


104025 








ERROR - 


2S 


• DATA ERROR 


3201 


011304 


005237 


001516 






INC 


ERCNT6 


; ALLOW 10 ERRORS AT MOST 


3202 


011310 


001002 








BNE 


IS 




3203 


011312 


0001 37 


012170 






JMP 


EXT7 


; IF MORE, EXIT 


3204 


011316 


005737 


001254 




ill 


TST 


RETRy2 




3205 


011322 


001404 








BEQ 


WCREPT 




3206 


01 1324 


005237 


001254 






INC 


RETRY2 




3207 


3 1330 


0001 37 


010606 






JMP 


BEAD 




3208 


















3209 


011334 


1 04^42 1 






WCREPT5 


CON.RDY 




J WAIT FOR CNTRL RDY FROM 


3210 














l-^aihETRYS 


> PREVIOUS WRT CHK 


3211 


011336 


0227 37 


177776 


001254 




CMP 


• IP THERE WAS A RETRY AFTER MISC 


3212 
















1 'COMPARISON, DO WRT CHK AGAIN 


3213 


011344 


001417 








BEQ 


ERWCHK 




3214 


01 1346 


000401 








BR 


LUPWCE'^2 




3215 


011350 


104415 






LUPWCEl 


CON, RESET 




3216 


011352 


013777 


001440 


170104 




MOV 


WDSKAD, 8BKDA 


• WRT CHK WITH THIS DSK«»ADRE5 


3217 


01 1360 


013777 


001444 


170072 




MOV 


WWRDCN, 9RKWC 


; THIS # OF WORDS 


3218 


011366 


013777 


001442 


170066 






WBUSAD f 9RKBA 


) THIS BUS ADRES 


3219 


01 1374 


012777 


000407 


170054 




MOV 






3220 


















3221 


1 1 402 


104421 








CON.RDY 






3222 


011404 


012737 


011350 


001110 


ERWCHKi 




#LUPWCE, SLPERR 




3223 


1 1 4 1 2 


032777 


040000 


170032 




BIT 


#BIT14,§RKDS 


J HARD EROR?(FROM WRT CHK) 


3224 


011420 


001410 








BEQ 


XHE 


;N0, BRANCH 


3225 


















3226 


01 142 2 


004737 


016214 






JSR 






3227 


011426 


104026 












;HE ON WRT CHK 


3 228 


0114 30 


005237 


001520 








ERCNT7 


; ALLOW 1 2 ERRORS AT MOST 


3 22 9 


1 14 34 


001002 










XHE 




3230 


011436 


0013 7 


01217 






1MD 


EXT7 


J IF MORE, EXIT 


3231 


















3232 


01 1442 


032777 


000001 


170004 


XHE : 


BIT 


SBITOjriRKER 


; WRITE CHECK EROR? 


3233 


01 145 


01420 








BEQ 


FINISH 




3234 


011452 


004737 


016214 






JSP 


PCGETINF 




32 35 




0127 37 


000003 


001202 




MOV 


#3,$REG10 


. GET TRY # 


3236 


011464 


16 37 37 


001256 


001202 




SUB 


RETPY3,SREG10 


J SAVE IT FOR TYPEOUT 


3237 


01147 2 


104027 








ERROR 


27 


> WRT CHK EROR 


323B 


011474 


005237 


001522 






INC 


ERCNT8 


; ALLOW 10 ERRORS AT MOST 


3239 


01 1 500 


0010 02 








BNE 


iS 




3240 


01 1502 


000137 


012170 






JMP 


EXT7 


; IF MORE, EXIT 


3241 


1 1 5 6 


0001 3 7 


01 2062 




IS s 


JMP 


WCEPOR 




3242 


















3243 


















3244 
















; THERE WAS NO WCE , DONE 


3245 
















• WITH ALL CHECKING FOR SOFT 


3246 
















; ERORS, ETC , MODIFY PARAMETERS 


3247 
















;T0 CHECK NXT BLOCK ON 


3248 
















ITHE DISK 


3249 


















3250 


011512 


022737 


001422 


001424 


FINISH! 


CMP 


»PAT3,PRSPAT 


jFIND OUT THE NXT PATRN GENRATR 


3251 


115 2 


001404 








BEQ 


16 


;T0 USE FOR GENRATING THE 


3252 


011522 


062737 


000002 


001424 




4DD 


»2,PRSPAT 


jBUFR, STORE POINTER TO 


3253 


011530 


000403 








BR 


2S 


jGENPATR ROUTINE IN 'PRSPAT" 


3254 


01 1532 


012737 


001414 


001424 


iSl 


MOV 


ffPATOrPRSPAT 


JNOTE THER R 4 PAT»GENPATRS 



MD-11<»DZRKL^E, RKU'^'RH'OS DYNAMIC TEST 
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3255 
















3256 


011540 


013701 


001476 




2St 


MOV 


INDX2,R1 


3257 


0115 4 4 


116101 


010426 






MOVB 


SECPTP(R1),R1 


3258 


011550 


042737 


000017 


001450 


3Sl 


BIC 


817, ADRES 


3259 


01 1556 


050137 


001450 






BIS 


Rl, ADRES 


3260 
















3261 
















3262 


011562 


005237 


001476 






INC 


INDX2 


3263 
















3264 


01 1566 


022737 


000004 


001476 




CMP 


#4,INDX2 


3265 


01 1 574 


001025 








BNE 


GOBAK 


3266 
















3267 
















3268 


011576 


005037 


001476 




DONTRKj 


CLR 


INDX2 


3269 
















3270 


01 1602 


032737 


000001 


001474 




BIT 


#BIT0,INDX1 


327 1 


011610 


001407 








BEQ 


DOSURl 


3272 
















3273 


011612 


062737 


000040 


001450 




ADO 


#40, ADRES 


3274 
















3275 


0U620 


042737 


000020 


001450 




BIC 


#20, ADRES 


3276 


011626 


000403 








BP 


DONE 


3277 
















3278 


011630 


052737 


000020 


001450 


DOSURli 


BIS 


#20, ADRES 


3279 
















3280 


011636 


005237 


00147,4 




DONEl 


INC 


INDKl 


3281 


011642 


001002 








BNE 


GOBAK 


3282 


011644 


000137 


012174 






JMP 


TSf 10 


3283 
















3284 


01 1650 


000137 


010532 




GOBAKi 


JMP 


BEGIN 


3285 
















3286 
















3287 










jCSEROB 






328e 
















3289 


011654 








CSEBOR! 






3290 
















3291 
















3292 


01 1654 


017700 


167604 






MOV 


iRKDA,RO 


3293 


01 1660 


OiOOOl 








MOV 


R0,PI 


3294 


011662 


032700 


000017 






BIT 


#17, RO 


3295 


01 1666 


001002 








BNi 


IS 


3296 


011670 


162700 


000004 






SUB 


»4,R0 


3297 


011674 


O0S300 






108 


DEC 


BO 


3298 
















3299 


OUSTS 


020037 


001432 






CMP 


RO,DSKADR 


3300 
















3301 


011702 


001021 








BNE 


2S 


3302 
















3303 


01 1704 


00S237 


0012S2 






INC 


mwi 


3304 
















3305 


011710 


001021 








BNE 


3$ 


3306 
















3307 
















3308 
















3309 
















3310 
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T7 READ, SOFTWARE COMPARE, WRITE CHECK OF THE PATTERNS 

?PAT0«'PAT1-PAT2»PAT3«»»«»PAT0« 
;FORM SECTR # TO BE USED NEXT 
7 GET SECTR » 
I MASK SECTR BITS 
;FORM THE NEW DISK»ADR£S 
J FORM THE NXT BLOCK TO BE 
;CHECKED, 

I DONE ALL 4 BL0CKS(3 SECS 
;EACH) ON THIS TRACK? 

; IF NOT, GO BAK & DO THE 
NXT BLOCK ON THIS TRACK 

REINITLZE COUNT FOR 
;4 BLOCKS ON THIS TRACK 

WHICH SUR TO DO NXT? OR 1 
{BRANCH, DO SUR 1 NXT 



jCLR SUR BIT, DO SUR NXT 

?SET SUR BIT, DO SUP 1 NXT 
tDONE WITH ALL 626 TRACKS? 



?IF NOT, GO BAK & CHECK 

jTHE NXT TRACK 

7 THIS IS THE ENTRY POINT 
;FOR SERVICE ROUTINE FOR CHECK 
jSUM EROR, CONTROL IS XFERED 
fHEBE ONCE CSE OCCURS 

;GET RKDA AFTER CSE 
I SAVE RKDA 

;FORM THE ADRES OF THE SECTR 
f WHICH GAVE CSE 

|R0 CONTAINS DSK»ADBES WHERE 
;CSE OCURED 

pDID A PREVIOUS RETRY (IF ANY) 

jGIVE CSE ON SAME ADRES 

;N0, THIS IS A FRESH CSE, BRANCH, 

I IF THIS WAS A CSE ON A 

? RETRY INCMNT RETRY COUNT, 

; BRANCH IF 3 RETRIES HAVEN^T 

I BEEN DONE 

;G0 REPORT CSE 

I IF CSE MAS IN THE LAST SECTR OF 
I THE 3 SEC BLOCK, GO TO 'WRTCHK* 
;OTHERWISC CHECK THE REST OF 
I THE SECTORS FOR C8E« 
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3311 


011712 


010102 








M0¥ 


Rl , R2 




3312 


011714 


042702 


177760 






BIC 


» 177760f P2 




3313 


01 1720 


001002 






7Sl 


BNE 


S$ 




3314 


01 1722 


000137 


011116 






JMP 


MRTCHK 




331S 


011726 


162702 


000003 




8$S 


SUB 


#3,R2 




3316 


011732 


1 00372 








BPL 


1$ 




3317 


















3318 


011734 


OlOlOO 






6$; 


MOV 


R1,P0 




3319 


011736 


012737 


177775 


001252 




MOV 


l^-ij RETRYl 




3320 


011744 


00040 3 








BR 


31 




3321 


















3322 


01 1746 


012737 


177776 


001252 


2Sl 


MOV 


RETRY! 


1 ALLOW 2 MORE TRIES FOR 


3323 
















;THE CSE ON SAME 0ISK-ADRE5 


3324 


















332S 


0117S4 


010037 


001432 




3li 


MOV 


ROjDSKADR 


; SAVE OSK»ADRES FOR DOING 


3326 
















;THE RETRy-READ 


3327 


011760 


163700 


001450 






SUB 


ADRESyRO 


JMODIFY THE 


332B 


011764 


005200 








INC 


RO 


;BUS AORES & WORD COUNT 


3329 


011766 


005300 






4i! 


DEC 


RO 


;T0 BE USE ON RETPY«» 


3330 


011770 


001407 








BEQ 


5@ 


IREAD 


3331 


011772 


062737 


001000 


001434 




ADO 


^lOOOiBUSADR 




3332 


012000 


062737 


000400 


001436 




ADO 


«400f MRDCNT 




3333 


01 2006 


000767 








BR 


4$ 




3334 


















3335 


012010 


104415 








CON 


RESET 


;CLR THE CSE IN RKER 


3336 


012012 


000137 


010642 






JMP 


RDAGAIN 


|G0 BACK, READ AGAIN 


3337 
















J RETRY 


3338 


















3339 


















3340 


















3341 










1 MISCMP 






fTHIS IS THE ENTRY POINT 


3342 
















1 FOR SERVICE ROUTINE, FOR 


3343 
















;DATA EROR ( MISCOMPARISON ) 


3344 
















;0N SOFTWARE COMPARISON 


334S 
















;0F DATA READ FROM THE DISK BLOCK 


3345 


















3347 


















3348 


012016 


1 04421 






MISCMPi 


CON 


ROy 


; WAIT FOR CNTRL RDY FROM 


3349 
















J PREVIOUS WBT CHK 


3350 


012020 


032777 


040000 


167430 




BIT 


#BIT14j §RKCS 




3351 


01 2o26 


001401 








BEQ 


10 




3352 


012030 


104415 








CON 


RESET 


•CLR WCE IN RKER 


3353 
















;BUT STILL DATA EROR ENTER HERE 


3354 


012032 


010022 






ISi 


MOV 


RO, (R2)* 


; STORE MEM ADRES WHERE 


3355 
















•DATA EROR OCCURED 


3356 


0! 2o34 


012123 








MOV 


CRl (RS)-?- 


J SAVE EXPCTD DATA 


33S7 


012036 


012024 








MOV 


CRO}*; CR4J* 


• SAVE DATA RECVD (BAD) 


3358 


012040 


005237 


001500 






INC 


INDX3 


; INDICATE MISCMPRISON 


3339 


















3360 


012044 


005237 


001502 






INC 


INDX4 


;STORE ONLY 12(DEC) ERORS 


3361 


012050 


001402 








BEQ 




J IF 12 ERORS, GO REPORT THEM 


3362 


















3363 


012052 


000137 


011244 






JMP 


CMPAGAN 


;G0 BACK & CMPARE THE REST 


3364 


















3365 


012056 


000137 


011274 




4$l 


JMP 


REPMSC 




3366 
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3367 








3368 








3369 








3370 








3371 








3372 








3373 


012062 


005737 


001236 


3374 


012066 


003033 




3375 








3376 








3377 


012070 


012737 


000003 


3378 








3379 


012076 


017700 


167362 


3380 


012102 


010002 




3381 


012104 


042702 


177760 


3382 


012110 


001002 




3383 


012112 


000137 


011512 


3384 


012116 


162702 


000003 


3385 


012122 


100372 




3386 


012124 


010001 




3387 


012126 


163700 


001440 


3388 


012132 


010137 


001440 


3389 


Ol2l36 


00S200 




3390 


012140 


005300 




3391 


012142 


001407 




3392 


012144 


062737 


001000 


3393 


0121S2 


062737 


000400 


3394 


012160 


000767 




339i 


0121S2 


10441S 




3396 


012164 


000137 


01U32 


3397 








3398 


012170 


004717 


01S772 


3399 








3400 








3401 








3402 








3403 








3404 








I40S 








3406 








3407 








3408 








3409 








3410 








3411 








3412 








3413 








3414 








341S 








341§ 








3417 








3418 








3419 








3420 








3421 








3422 


01§i74 


000004 





jTHIS THE ENTRY POINT FOR 
I EROR SERVICE ON GETTING A 
fWBITE CHECK EROR, 



001442 
001444 



HCERORi 


TST 


RETRY3 


IDONE 3 TRIES? 




BGT 


CLRERB 


;IF NOT SKIP, OTHERWISE REPORT 








jW C EROR 




MOV 


#3,RETRY3 


;SET CONT FOR RETRIES 




MOV 


iRKOA,R0 


|IF WCE WAS IN THE LAST SECTOR 




MOV 


R0,R2 


;0F THE BLOCK, NO MORE SECS 




BIC 


#177760, R2 


;T0 CHECK, GO TO 'FINISH' 




BNE 


4$ 


; IF IT WASN'T LAST SECTOR OF THE 




JMP 


FINISH 


; BLOCK, THEN CHECK REMAINING 


4Sl 


SUB 


#3,R2 


; SECTORS, (STARTING FROM THE 




BPL 


3S 


>SEC AFTER THE ONE GIVING WCE) 


111 


MOV 


B0,R1 


7 SAVE DISK AORES 




SUB 


V^DSKAD,RO 






MOV 


R1,WDSKAD 


>GET SAVED DISK AORES 




INC 


RO 




211 


DEC 


RO 






BEQ 


CLRERR 






ADD 


#1000,WBUSAD 


',FQm THE NEW BUS ADRES 




ADD 


#400#5'^WRDCM 


;FORM THE NEW WORD COUNT 




BR 


21 




CLRERRf 


CONgRESET 






JMP 






EXT7I 


JSR 


PCAiRT 






f »TESf 


10 


WRITE, WRITE 


CHECK ON CYLINDERS 127, 128 




f#THIS 


TEST WRITES 12 UNIQUE PATTERNS (ONE FOR EACH 



|»SECTOR) ON CYLINDERS 127 AND 128, THEN WRITE 
|#CHECK IS DONE TO SEE IF THEY WERE WRITTEN 
INCORRECTLY. IT SHOULD BE NOTED THAT THERE IS 
f ^CHANGE IN *WRITE*^ CURRENT AT THIS CYLINDER. 
{^PATTERNS ARE RELOCATED ON THE CYLINDERS AFTER EACH 
|#MRIfE/WR|TE CHECK CYCLE^ THUS THE FIRST TIME 
;«PATTERN *SP1«' IS WRITTEN ON SECTOR 0, PATTERN 'SP2' ON 
;#5ECT0R 2, ETC, AFTER THIS WRITE/WRITE CHECK CYCLE 
f#IS OVER PATTERN *SP2' IS WRITTEN ON SECTOR 0, PATTERN 
|»|'SP3' ON SECTOR 1 AND SO ON, THIS WRITE/WRITE 
}*CHECK CYCLS: is REPEATED 12 TIMES, THUS 
|«THE LAST WRITE/WRITE CHECK IS DONE USING 
r^PAfTERM »SP12* ON SECTOR 0, PATTERN 'SPl^ IS 
|»WRITTEW ON SECTOR 1, PATTERN 'SP2' ON SECTOR 2, 
J»ETC, IF YOU WANT TO WRITE ANY OTHER PATTERNS 
f#riLL IN THE PATTERNS YOU WANT IN LOCATIONS 
?#*a?l% ^-SPS^ sgaETC, 

fSTlOl SCOPE 
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3423 




















3424 


012176 


012737 


17.7764 


001S04 




MOV 




8«>»l4f ERCNTl 


; ALLOW 12 ERRORS AT MOST 


342§ 


012204 


012737 


177764 


001506 




MOV 




#»14,ERCNT2 


{ALLOW 12 ERRORS AT MOST 


3426 


012212 


012737 


177723 


001510 




MOV 




#«55,ERCNT3 


; ALLOW 15 ERRORS AT MOST 


3427 


012220 


012702 


012702 






MOV 




#SP1,R2 


; INITIALIZE POINTER TO PATPN 


3428 


012224 


010201 






DOWRT J 


MOV 




R2,R1 




3429 


012226 


012700 


007740 






MOV 




#7740, RO 


; SET UP CYL ADRES BITS (127) 


3430 


012232 


053700 


001230 






BIS 




DRIVAD,RO 


J SET up DRIVE S BITS 


3431 


012236 


00S003 






WRLQl 5 


CLR 




R3 




3432 


012240 


104415 






KRERRi 


CON 5 


,RESET 




3433 




















3434 


012242 


010077 


16721S 




WRLOl 


MOV 




ROj SRKDA 


; ADRES THE DRIVE 


3435 


01 2246 


012777 


177400 


167204 




MOV 




#-400,iRKWC 


jWRITE 1 SECTOR 


3436 


012254 


010177 


167202 






MOV 




RljfRKBA 


; USE THIS PATTERN 


3437 


012260 


012777 


004003 


167170 




MOV 




#4003,§RKCS 


; WRITE, GO 


343S 


012266 


104421 








CON, 


RDY 






3439 


012270 


032777 


140000 


167160 




BIT 




#140000, §RKCS 


jANY ERROR? 


34 40 


01 2276 


001414 








BEQ 




4$ 




3441 


012300 


012737 


012240 


00 1 1 1 




MOV 




8WRERR, SLPERR 


J OE. 1 ADR&O r uR tiUOrlNG ON LHRUR 


3442 


1 2306 


047 37 


016162 






JSR 




PC,GT4BG 


uf^^fp CO ne tsa 
J VjCi 1 IKCo, C.R , 05, OA 


3443 


012312 


1 04021 








ERROR 


21 


J ERROR OCCURRED ON DOING A WRITE 


3444 


012314 


1 04415 








CON , 


RESET 


; CLEAR THE ERROR 


3445 


012316 


005237 


001504 






INC 




ERCNTl 


; ALLOW 12 ERRORS ONLY 


3446 


012322 


001002 








BNE 




4$ 




1447 


012324 


000137 


012732 






JMP 




EXTIO 




3448 




















3449 


012330 


005200 






48s 


INC 




RO 




3450 


012 3 32 


005203 








INC 




R3 


J KEEP COUNT 


3451 


012334 


022701 


012730 






CMp 




#SP12,R1 


; USE PATTERNS IN A CYCLIC FASHION 


3452 


01 2340 


001002 








BNE 




3$ 




3453 


012342 


0127 01 


012700 






MOV 




#SPi-2,Rl 




3454 


01 2346 


005721 






3$l 


TST 




(Rl) + 


; INCREMENT POINTERS TO NEXT PATTERN 


3455 


01 2350 


020327 


000014 






CMP 




R3,#14 


; DONE SURFACE 0? 


3456 


012 35 4 


002732 








BLT 




WRLO 


• NO 


3457 


01 2356 


001005 








BNE 




2$ 


; YES, IF CHANGING HEADS 


34?B 


012360 


010201 








MOV 




R2,R1 




3459 


012362 


042700 


000017 






BIC 




#17, RO 


; SET UP CORRECT ADDRESS ETC , 


3 460 


012366 


052700 


000020 






BIS 




#20, PO 




3461 




















3462 


012372 


020327 


000030 




20! 


CMP 




R3, #30 


jDONE WITH WRITING SURFACE 1? 


3463 


012376 


013 21 








BNE 




WRLO 


; NO, BRANCH 


3464 




















3465 


01 2400 


032700 


007700 




WRHI I 


BIT 




»7700,R0 


; DONE WITH BOTH CYLINDERS «• 127 6 128? 


3466 


012404 


001405 








BEQ 




DOWCHK 


; YES 


3467 


012406 


012700 


010000 






MOV 




810000, RO 


; NO, DO CYLINDER 128 


3468 


012412 


053700 


001230 






BIS 




DPIVAD,P0 




3469 


12416 


000707 








BR 




WRLOl 


; GO BACK 


3470 


















{CYLINDERS 127 AND 1 26 HAVE BEEN 






















3472 




















347 3 


012420 


010201 






DOWCHKi 


MOV 




R2,P1 


; WRITTEN, NOW DO WRITE CHECK 


3474 


01 2422 


012737 


177775 


001252 




MOV 




S-^SyRETRYl 


? INITIALIZE POINTER TO FIRST PATTERN 


3475 


012430 


01 2700 


010000 






MOV 




#10000, RO 


{RETRY COUNT 


347b 


012434 


053700 


001230 






BIS 




DRIVAD,RO 


{DO CYLINDER 128 FIRST 


3477 


012440 


005003 






WCHIls 


CLR 




R3 




3478 


012442 


010077 


167016 




WCEPPj 


MOV 




PO, 3RKDA 


{ADRES THE DRIVE 



)»! 1»DZRKL«E, 


RKl 1»RK05 


1 DYNAMIC 


TEST 


MACYll 


30(1046) 


14-JUL"77 08103 PAGE 67 




,P1 1 26«'APR-77 


12J27 




TIO 


WRITE, 


WRITE CHECK ON 


CYLINDERS 127, 128 


3479 


















3 48 


012446 


012777 


177400 


167004 


WCHl! 


MOV 


#«400,3RKWC 


{WRITE CHECK 1 SECTOR 


348 1 


012454 


010177 


167002 






MOV 


R1,@RKBA 


{WITH THIS PATTERN 


3482 


012460 


012777 


004007 


16S770 




MOV 


»4007,§RKCS 


{ WRITE CHECK, GO 


3483 


012466 


104421 








CON gRDY 






3484 


















34B5 


012470 


032777 


040000 


166754 




BIT 


«40000, 0RKDS 


{HE? 


3486 


012 4 7 6 


001406 








BEQ 


1$ 


{NO 


3487 


01 2500 


004737 


016214 






JSR 


PCGETINF 




348R 


012504 


104026 








ERROR 


25 


{HE ON DOING WRT CHK 


3489 


01 2506 


005237 


001506 






INC 


ERCNT2 


{ALLOW 12 ERRORS ONLY 


3490 


01 2512 


001507 








BEQ 


EXTIO 


{ IF MORE, EXIT 


3491 


01 2";14 


032777 


000001 


166732 


IS! 


BIT 


#BIT0,9PKER 


;WCE? 


3492 


012522 


001425 








BEQ 


4S 


{NO 


349 3 


012524 


012737 


012442 


001110 




MOV 


«WCERR,$LPERR 


{SET ADRES FOR LOOPING ON ERROR 


3494 


012532 


004737 


016214 






JSR 


PCGETINF 


{GET INFO ON ERROR 


3495 


012536 


013737 


001232 


001202 




MOV 


RETRY1,SREG10 




3496 


012544 


062737 


000004 


001202 




ADD 


#4, SREGIO 


{WCE ON DOING WRITE CHECK, WITH 


3497 


012552 


104027 








ERROR 


27 


{PATTERN STORED IN Rl 


3498 


012554 


005237 


001252 






INC 


RETRYl 


{DO 3 TIMES IN ALL 


3499 


012560 


001330 








BNE 


WCERR 




3500 


012552 


005237 


001510 






INC 


ERCNT3 


{ALLOW 15 ERRORS ONLY 


350 1 


012566 


001461 








BEQ 


EXTIO 


J IF MORE, EXIT 


3502 


012570 


012737 


17777S 


001252 




MOV 


RETRYl 




3503 


















3504 


012576 


005200 








INC 


RO 


{KEEP TRACK OF DISK-ADRES 


3505 


012600 


005203 








INC 


R3 


{AND COUNT 


3506 


01 2602 


022701 


0127 30 






CMP 




{USE PATTERNS IN CYCLIC 


3507 


012606 


001002 








BNE 


3S 




3508 


012610 


012701 


012700 






MOV 




{FASHION 


3509 


012614 


005721 






3S| 


TST 


(BD* 


{INCREMENT POINTER TO NEXT PATTERN 


3510 


012616 


020327 


000014 






CMP 


R3,#i4 


{DONE SURFACE 0? 


351 I 


012622 


002711 








BLT 


WCHI 


{NO 


3512 


012624 


001005 








BNE 


2S 




3513 


012626 


010201 








MOV 


R2,B1 


{ IF CHANGING HEADS (O-^l), SET CORRECT 


3514 


012630 


042700 


000017 






BIC 


§17, RO 


{ADRES BITS 


3515 


012634 


052700 


000020 






BIS 


#20, RO 




3516 


















351 7 


012640 


020327 


000030 




281 


CMP 


R3,#30 


{DONE WRITE CHECKING SURFACE t? 


3518 


012644 


001300 








BNE 


WCHI 


{NO, GO BACK 


3519 


















3520 


012646 


032700 


007700 




WCLO: 


BIT 


#7700, RO 


{DONE BOTH CYLINDERS « 127, 1287 


3521 


012652 


001005 








BNE 


REPEAT 


{YES, BRANCH 


3522 


012654 


012700 


007740 






MOV 


#7740, RO 


{DO CYLINDER 127 NOW 


3523 


012660 


053700 


001230 






BIS 


DRIVAD,RO 




35 2 4 


0126S4 


00066S 








BR 


WCHIl 




3525 


















3526 


















3527 


012666 


003722 






REPEAT! 


TST 


(R2)* 


{RELOCATE THE PATTERNS ON THE 


3528 


012670 


020227 


012732 






CMP 


R2,$SPi24>2 


{CYLINDERS AND DO IT AGAIN 


3S29 


012674 


001420 








BEQ 


TSTll 


llEXIT 


3530 


012676 


000137 


012224 






JMP 


DOWRT 


fTHIS TEXT) 


353 1 


















3532 


















3533 


















3534 










p PATTERNS TO BE 


USED 
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353S 






3S36 


012702 


177777 


3537 


012704 


0S252S 


3531 


012706 


1 11 1 1 1 


35 39 


012710 


010421 


3540 


012712 


1 02041 


3541 


012714 


010101 


3542 


012716 


40201 


3543 


012720 


000401 


3544 


012722 


31463 


3S4S 


012724 


070707 


3546 


012726 


007417 


3547 


012730 


041020 


3548 






35 49 


0127 32 


0047 37 


3550 






3551 






355 2 






355 3 






355 4 






3555 






3556 






3557 






3558 






3559 






3560 






3561 






3562 






3563 






3564 






3565 






3566 






3567 


012736 


000004 


3568 


012740 


032777 


3569 


012746 


001002 


3570 


012750 


000137 


3571 


012754 


1 04415 


357 2 


012756 


10 4 416 


3573 






3574 


012760 


012737 


3575 






3576 






3577 


01 2766 


104401 


3578 


012772 


000424 


3S79 






3590 


013044 




358 I 


013044 


104401 


3582 


01 3o50 


000421 








3584 


013114 




3585 


013114 


104401 


3586 


01 3l20 


000421 


3587 






3588 


013164 




3589 






3590 


013164 


012737 



000100 

014106 



166172 



177771 001252 



SPl 1 


, WORD 


177777 


1 1F you WANT TO WRITE ANY 


SP2f 


, WORD 


0S252S 


J OTHER PATTERNS, CHANGE THESE 


SP3l 


eWORD 


mill 


; 12 LOCATIONS TO ANY PATTERN 


SP4i 


»WORD 


010421 


;yOU WANT, 


3PSI 


«WORD 


102041 








010101 




SP7I 


9 WORD 


040201 




SP8I 


.WORD 


000401 




aP9f 


.WORD 


031463 




SPIOI 


sWORD 


070707 




SPil i 


.WORD 


007417 




SPi2i 


.WORD 


041020 




EXTIO! 


JSR 


PC, ABRT 





I ♦TEST 11 SEEK FUNCTION TIMER 

f »SEEK TIMER 

f »IN THIS PART OF THE PROGRAM SEEKS 
|»0F CYLINDERS, BOTH IN THE FORWRAD 

j##»####CAUTION#*»«»# 

1 »IT SHOULD BE NOTED THAT THE SECTOR 
f «TIME CLOCK TO DO THE SEEK TIMING, 
I»SECTOR COUNTER SHOULD BE ACCURATE 
f *SPEED| 1500 RPM s 40 MILI SECS 

j*VARIATIONj +»30 PPM 

TSTll: SCOPE 

BIT »SW6,9SWR ;INH 

BNE 9*6 
JMP PLTGRPH 
CON, RESET 
DPVgRESET 



ARE TIMED BETWEEN A PARTICULAR SEX 
DIRECTION (0-312) AND REVERSE C 3 1 2*0 } , 

COUNTER (IN RKDS) IS USED AS THE REAL 
FOR THE TIMES TO BE RELIABLE, THE 
WITHIN THE SPECIFICATIONS OF THE DISK 
/REV S3, 33 MILI SECS/SECTOR, 

IBIT TIMER? 



f 16511 
64$| 



M67$I 
66$| 



f f 69SI 
6B$S 



MOV 



TYPE 

BP 

,ASCIZ 



TYPE 

BR 

«ASCIZ 

TYPE 

BR 

.ASCIZ 



#^7,RETRY1 



JCOUNT FOR 7 DIFRNT SEEK TIMES 
f TO BE RECORDED 



,650 nTYPE ASCIZ STRING 

648 ; } GET OVER THE ASCIZ 

<15><12>/SEEK TIME SCALE FACTORsO.Ol MILI SECS/ 



,67$ ; ;TYPE ASCIZ STRING 

66$ ; ;GET OVER THE ASCIZ 

<15><12><12>/ # OF SEEK # OF SEEK/ 

,698 jfXYPE ASCIZ STRING 

68$ ; J GET OVER THE ASCIZ 

<15><12>/ SEEKS TIME SEEKS TIME/<15><12> 



8SIAD, INADR 



; INITLZE PTR TO INNER ADRES 
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3591 
3592 
3593 
3S94 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 
3611 
3612 
3613 
3614 
361S 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3827 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
363S 
3636 
3637 
3638 
3639 
3640 
3641 
3642 
3643 
3644 
364S 
3646 



013172 012737 

013200 017777 



013206 
013214 
013222 

013224 

013226 
013232 
013236 
013242 



013250 
013254 

013260 

013262 
013266 

013272 

013274 
013300 

013304 



013310 

013314 
013316 

013320 
013324 

013326 
013330 

013334 
013340 



053777 
012777 

104421 
104422 

005037 

012704 
012705 
012737 



013702 
005737 
001005 

017712 
053712 
000404 

017712 

053712 
004737 



005737 
001004 
010324 
00S237 
0007S1 

01032S 
00S037 

OOS237 
001343 



001524 00S262 
166056 1&6256 



001230 1662S0 

000011 166234 



001474 
027026 

027426 

177634 001475 



001464 
001474 



16S772 
00i230 



16S762 
001230 

014776 



001474 
00S474 



001474 
001476 



#SDAD,OUTADR 



? INITLZE PTR TO OUTER ADRES 



REPTIMt MOV 



@0UTADR,9RKDA ^POSITION HEADS TO OUTER CYLINDER 
JBEFORE STARTING TO TIME 
;SET DRIVE # BITS 
fSEEK, GO 
?WAIT FOR CNTRL RDY 
> WAIT FOR R/W/S RDY 



BIS DPIVAD, glRKDA 

MOV #11,3RKCS 
CON^RDY 

TSTsRWS 





CLR 


INDXl 


J INDXl a 0, GOING IN J OTHERWISE OUT 




MOV 


«BUFR10,R4 


> STORE FWRD SEEK TIMES IN THIS BUFR 




MOV 


#BUFRll,R5 


J STORE REVRSE » " 




MOV 


#»144,INDX2 


;SET COUNT FOR » OF SEEKS 


BEGSKi 


MOV 


RKDA,R2 






TST 


INDXl 


; GOING FWRD OR REVRSE? 




BNE 


IS 


;PEVRSE, BRANCH 




MOV 


SINADR,@R2 


;FWRD, SET INNER CYL ADRES 




BIS 


DRIVAD,?P2 


J SET DRIVE # BITS 




BR 


2$ 






MOV 


§OUTADR, m 


, ;SET OUTER CYL ADRES 




BIS 


DRIVAD,?R2 


;SET DRIVE 8 BITS 


2SS 


JSR 


PC,@#TIMSEK 


J GO, -TIME THE SEEK FROM CYLINDER 








fO TO THE ABOVE CYL, RETURN WITH 








;R3 CONTAINING THE TIME (MS, SCALE 








J FACTORS 0,01) REQUIRED FOR THE SEEK 




TST 


INDXl 






BNE 


3$ 






MOV 


R3, CR4)* 


; STORE TIME TAKEN FOR FRWRD SEEK 




INC 


INDXl 


ISET FLAG FOR DOING REVRSE SEEK 




BR 


BEGSK 


;G0 DO IT 


3is 


MOV 


R3, (R5)+ 


; STORE TIME TAKEN FOR REVRSE SEEK 




CLR 


INDXl 


fCLR FLG FOR DOING FRWRD SEEK 




INC 


INDX2 


» RECORDED 144 SEEK TIMES 




BNE 


BEGSK 


;IF NOT, GO BAK 



I AT THIS POINT 100 SEEKS HAVE BEEK PERFORMED BETWEEN TWO 
f CYLINDERS (FORWARD & REVERSE DIRECTION) , FORWARD SEEK 
jTIMES ARE STORED IN TABLE STARTING AT 'BUFPIO' REVERSE 
fSTARTING AT 'BUFRll*. THE FOLLOWING CODE FINDS OUT THE 
f NUMBERS OF TIMES A PARTICULAR 'SEEK TIME' WAS OBTAINED, 
f EXAMPLE! OUT OF 100 TIMES THE SEEK WAS DONE BETWEEN 
fCYLINDER & LAST, 
1 70 TIMES IT TOOK 95 MILI SECS 
f 20 TIMES IT TOOK 85 MILI SECS 
rlO TIMES IT TOOK 100 MILI SECS 

rTHIS INDICATES HOW CONSISTENT WAS THE SEEKING TIME, 
jNOTE THAT ONLY 3 DIFFERENT "SEEK TIMES" WILL BE TYPED 
fOUT, 

iSORTIMG ROUTINE 
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3647 

3648 013342 01270S 177776 SOBTl MOV 

3649 013346 012737 027026 001162 MOV 

3650 013354 012737 027030 001164' MOV 

3651 013362 012737 026S26 00U66 MOV 

3652 013370 012737 026606 001170 MOV 
36S3 



3654 


013 376 


013700 


001162 


iff 




(9 Dc/' A Q/H 

^ KiiUU ; r<U 




3655 


01340 2 


013701 


001 16% 






iKDul 1 HI 






013406 


012702 


1 7 7 6 3 S 




Mnu 


ill eat Alt . tS'i 




365 / 


01 3412 


005003 






CwR 


B3 




3658 




















021011 




21 i 




t XO } f V HI } 


JbUKi, IHSt libno u PUT Tn&n 




01 J416 


nn'iAftA 
u u a "JU •« 






Rl F 








01 3 420 


01 1004 






Mnu 








013 422 


1 1 1 1 






unu 


SKI J J iHu J 


|aP)ALiuE<H A J; rHs< oUTTUIn 


^fe - d 


^ ^ ^ ^ « 5 








Mnu 










005203 






Twr 








ni ^ 


S 7 2 












3665 




A A K "} O i 

05 fil 






mem 


C Fl J * 






013434 


005202 








R2 




3668 


I 3 4 3 6 


OOl 366 






BNE 


2$ 




3669 


013440 


005703 






TST 


R3 


} oUHl tU AuL ITB.M57 


367 


013442 


UO 1 355 






BNE 


1 $ 


> IF NOT LOOP BACK 


36 7 1 
















36 7 2 


01 3444 


013700 


001162 




MOV 


IhEGO I RO 


jPTR TO 'SEEK TIME 


36 7 5 


013450 


0137 01 


001 156 




MOV 


SREG2# Bl 


; SAVE 'SEEK TIME ' HERE 


367 4 


I 3454 


01 3702 


001170 




MOV 


B2 


fSAVE OF TIMES* HERE 


36 75 


013460 


010204 






MOV 


R2 1 R4 




36 76 


01346 2 


OOS024 






CLR 


C R4) 


fCLR OUT S WORDS OF 


3677 


013 464 


005024 






CLR 


CR4)* 


OF TIMES*'BUFR 


3678 


013466 


005024 






CLR 


CR4) + 




3679 


01 3470 


005024 






CLR 


CR45* 




36BU 


01 3 47 2 


00S024 






CLB 


CR4 3* 




36a 1 


01347 4 


012703 


177773 




MOV 


#'=»5» R3 


jSAVE ONLX 5 DIFRNT 'SEEK TIMES* 


368 2 
















368 3 


01 3500 


01 J 01 1 






MOV 


CRO) ? (Ri 3 


; FIND OUT THE '# OF TIMES * 


36B 4 


013502 


012703 


177634 




MOV 


#«»l44ii R3 


} EACH 'SEEK TIME * WAS 


3t> R5 


01 3506 


02201 1 




4$ S 


CMP 


(RO)** (Rl 3 




3686 


01 3slO 


001411 






BEQ 


5$ 


5 OBTAINED 


3687 


















013512 


00 57 21 






TST 






3689 


013514 


016011 


177776 




MOV 


-2CR03,CB13 


jSAVE 'SEEK TIME' 


3690 


013520 


005722 






TST 


(R2)'«- 




3691 


013522 


012712 


000001 




MOV 


#1, CR23 


;KEEP n OF TIMES' 


1692 


01 3526 


005203 






INC 


R3 




3693 


013530 


001404 






BEQ 


6S 




3694 


01 3532 


000765 






BR 


4$ 




3695 
















3696 


013534 


005212 




5SS 


INC 


CR2 3 


jINCRMNT OF TIMES* 


3697 


01 35 36 


005203 






INC 


R3 


; ALL DONE? 


3698 


013540 


001362 






BNE 


4S 


|IF NOT? GO BAK 


3b99 
















3700 


013542 


005205 




6$! 


INC 


R5 


; SORTED BOTH FRWRD, REVRSE 


3701 


013544 


0U141S 






BEQ 


GOTYPE 


; 'SEEK TIMES', IF YES GO TYPE 



3702 



#««2iRS ?COUNf FOR FRWRD, REVRSE 

#BUFR|0» IREGO | INTLZE PTR TO *SEEK TIME* 
#BUrRIO<^af IREGI 
SBUFR4»$REG2 

#BUFR5»SREG3 jINTLEE PTR TO '# OF TIMES* 
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3703 


013546 


012737 


027426 


001162 




MOV 


#BUFRU,$BEG0 f IF NOT» INITLZE PTR TO "SEEK TIME* 


37 04 


013554 


012737 


027430 


001164 




MOV 


#BUFRU + 2»IREG1 


3705 


013562 


012737 


026666 


001166 




MOV 


«BUFR6,SREG2 fSAVE 'SEEK TIME* 


3706 


01 35 7 


012737 


026746 


001170 




MOV 


#BUFR7»$REG3 jSAVE OF TIMES* HERE 


3707 
















3708 


013576 


000677 








BR 


IS |G0 BAK & DO SORTING FOR REVRSE SEEK TIMES 


3709 
















37 10 














JTYPE OUT CYL #*'S BETWEEN WHICH SEEK 


37U 














J MAS TIMEDs 'OUTADR* TO ^INADR" ^NADR* TO ^OUTADR" 


3712 


013600 


104401 






GOTYPEJ 


TYPE 




3713 


013602 


001213 








SCRLF 




3714 


01 3604 


104401 


013612 






TYPE 


»§5S ?}TYPE ASCIZ STRING 


3715 


013610 


000403 








BR 


64$ nGET OVER THE ASCIZ 


3716 










f I65S8 


g&SCIZ 


/CYLSl/ 


3717 


013620 








64$8 






3718 
















3719 


Ot 3620 


017700 


165436 






MOV 


i0UTADR,R0 jGET OUTER CYL # 


3720 


013624 


006200 








ASR 


RO 


37 21 


01 3626 


006200 








ASR 


RO 


3722 


013630 


006200 








ASR 


RO 


3723 


01 3632 


006200 








ASR 


RO 


3724 


01 3634 


006200 








ASR 


RO 


3725 


013636 


010046 








MOV 


ROj^CSPJ 


3726 


013640 


104424 








TYPDSS 


fTYPE IT OUT IN DECIMAL 


3727 


01 3642 


104401 


013690 






TYPE 


»67l ?fTYPE ASCIZ STRING 


37 28 


01 3646 


O00401 








BR 


66$ hGET OVER THE ASCIZ 


3729 










J f 67SI 


sASCIZ 




3730 


0136S2 








66gs 






3731 


013652 


017701 


165402 






MOV 


©INADR»Rl ?GET INNER CYL # 


3732 


013656 


006201 








ASR 


Rl 


3733 


013660 


006201 








ASR 


Rl 


3734 


013662 


006201 








ASR 


Rl 


37 35 


01 3664 


006201 








ASR 


Rl 


3736 


013666 


006201 








ASR 


Rl 


3737 


013670 


010146 








MOV 


R1,-CSP) 


3738 


013672 


104424 








TYPDSS 


fTYPE IT OUT IN DECIMAL 


3739 


013674 


104401 


013702 






TYPE 


#69$ If TYPE ASCIZ STRING 


3740 


013700 


00040S 








BR 


68s ijGEf OVER THE ASCIZ 


3741 










f J69SI 


«ASCIZ 


^IS^'SiaS'/ FRWRD/ 


3742 


013714 








5881 






3743 


013714 


104401 


002101 






TYPE 


#BLNKS9 


3744 


013720 


104401 


013726 






TYPE 


#71S If TYPE ASCIZ STRING 


3745 


013724 


000404 








BR 


70S nGET OVER THE ASCIZ 


3746 










f P718I 


«ASCIZ 


/REVRSE/ 


3747 


013736 








70SI 






3748 
















3749 














J TYPE OUT THE OF SEEKS* & *SEEK 


3750 














fTIME' OBTAINED FOR EACH OF THOSE 


3751 














; SEEKS 


3752 


013736 


005000 






TYPTIMf 


CLR 


RO 


3753 


013740 


005005 








CLR 


RS 


3754 


013742 


104401 








TYPE 




3755 


013744 


001213 








$CRLr 




3756 


013746 


016046 


02§60i 






MOV 


BUFRSCR0 3#«'£SP) fGET *# OF SEEKS% IF NONE CO? 


3757 


013752 


001424 








BEQ 


31 fSKIP TYPING CFRWRD SEEK) 


3758 


013754 


I0440S 








TYPDS 


|G0 TYPE OUT 5ECIMAL OF SEEKS* 
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37S9 


013756 


104401 








TYPE 










3760 


013760 


ooaiio 








BLNKS2 










3761 


01 3762 


016046 


026526 






MOV 


BUFR4CR0)»«' 


£SP) iGET «'SEEK TIME' FOR EACH OF 






3762 


013766 


10440S 








TYPDS 




?0F THAT *% OF SEEKS* , 'GO 






3763 
















;TYPE OUT IN DECIMAL 






3764 






















3765 


013770 


016046 


02S74S 




2S| 


MOV 


BUFP7(R0]," 


CSP) ;GET '» OF SEEKS', IF NONE (03 






3766 


013774 


001416 








BEQ 


4$ 


;SKIP TYPING CREVRSE SEEK) 






3767 


013776 


O0S705 








TST 


RS 








3768 


014000 


001402 








BEQ 


as 








3769 


014002 


104401 


00207S 






TYPE 


,BLNK13 








3770 


014006 


104405 








TYPDS 




;TYPE OUT IN DECIMAL 






3771 


014010 


104401 








TYPE 










3772 


014012 


002110 


















3773 


014014 


016046 


026666 






HOV 


BUFReCRO),"* 


(SP) yGET 'SEEK TIME' & TYPE IT 






3774 


014020 


10440S 








TYPDS 




fOUT IN DECIMAL 






377S 


014022 


000406 








BR 


5$ 








3776 






















3777 


014024 


00S726 






3Sl 


TST 


CSPH 


IPOP STACK 






3778 


014026 


00S20S 








INC 


R5 








3779 


014030 


000757 








BR 


21 








3780 






















3781 


014032 


005726 






4$f 


TST 


CSP)4 


;POP STACK 






3782 


014034 


00S70S 








TST 


m 








3763 


014036 


001004 








BNE 


TIMDON 








3784 






















3785 


014040 


005720 






S$l 


TST 


(RO)* 


; INCREMENT PTR TO TABLES 






3786 


014042 


020027 


000012 






CMP 


R0»«12 


;ALL DONE? 






3787 


014o46 


001335 








BNE ' 


i% . 


> IF NOT GO BAK 






3788 






















3789 


014050 


062737 


000002 


001260 


TIMDONi 


ADD 


«2,INADR 


1 INCRMNT POINTER TO NEXT 






3790 


014056 


062737 


000002 


001262 




ADD 


«2,0UTADR 


; INNER & OUTER ADRES 






3791 


Ol4o64 


005237 


00S252 






INC 


RETRYl 


;ALL DONE? 






3792 


014070 


001406 








BEQ 


PLTGRPH 








3793 


014072 


032777 


000100 


i6S040 




BIT 


#SW6,iSWB 


; INHIBIT TIMER? FURTHER ? 






3794 


01 4100 


001402 








BEQ 


PLTGRPH 


; YES, BRANCH 






379S 


014102 


000137 


013200 






JMP 


REPTIM 


;G0, BACK AND TIME REST 






3796 
















fOf SEEKS 






37<?7 






















3798 






















3799 






















3800 










fPLOT GPAPH or 


^SEEK TIME' 


V/S 'CYLIDERS SEEKE0' 






3801 






















3802 












J PERFORM SEEK FROM 


CYLINDER TO EVERY OTHER CYLINDER 


AND 


TIME IT, 


3803 












fO 


0,0 1,« 


«»— 312« NOTE 'SECTOR COUNTER' IS 


USED 


AS A READ 


3904 












ITIME 


CLOCK TO TIME 


THERE SEEKS. AFTER OBTAINING THE 


SEEK 


TIMES A 


3805 












f GRAPH 


IS PLOTTED OF 'SEEK TIME' V/S 'CYLINDER' , 






3806 






















3807 












f TIME 


THE SEEKS 








3808 


01 4106 


032777 


000040 


1SS024 


PLTGRPH! 


BIT #SW5jSSWR 


;SKIP THE GRAPH? 






3809 


014114 


001002 








BNE 










3810 


014116 


000137 


015224 






JMP 


TSTi2 


1 YES, BRANCH 






3811 


014122 


i0441S 








CON9RESET 








3812 


OJ 4l24 


104416 








DRV, RESET 








3813 


014126 


012737 


17746S 


OOlSOO 




MOV 


#»313» INDX3 


; PERFORM 313 SEEKS «0 , " 1 , 0»3 1 2 




3814 


014134 


012704 


027026 






MOV 


#BUFR!0,R4 


STORE 'SEEK TIME* HERE 
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ZRKLE 


Pll 


?6™APR»77 


12127 




Til 


SEEK FUNCTION TIMER 




3815 


01 4140 


OOS037 


001260 






CLR 


INADR 


jCLR CYL ADRES BITS 


3816 


















3817 


014144 


013777 


001260 


16S312 


III 


MOV 


INADR,gRKDA 


J ADRES THE RIGHT CYLINDER 


3818 


014152 


053777 


001230 


16S304 




BIS 


DRIVADjiRKDA 


; ADRES THE RIGHT DRIVE 


3819 


















3820 


014160 


004737 


014776 






JSR 


PCTIMSEK 


;G0 TIME THE SEEK FROM CYL 


3821 
















;T0 THE ABOVE CYL, RETURN WITH 


3822 
















JR3 CONTAINING 'SEEK TIME' IN MS 


3823 
















5 SCALE FACTOR OF 0,01 


3824 


014164 


010324 








MOV 


B3, CR4)4- 


; STORE *SEEK TIME' 


3825 


014166 


042777 


017777 


16S270 




BIC 


#17777, 9RKDA 


iSEEK BACK TO CYL FOR 


3826 


014174 


012777 


000011 


SSS2S4 




MOV 


#li,iRKCS 


JTIMING NXT CYL SEEK 


3827 


014202 


104421 








CON9RDY 




> WAIT FOR CNTRL RDY? 


3828 


014204 


104422 








TST9RWS 




; WAIT FOR R/W/S RDY 


3829 


014206 


062737 


000040 


0012S0 




ADD 


#40, INADR 


5 FORM NXT CYL ADRES 


3830 


014214 


00S237 


OOlSOO 






INC 


INDX3 




3831 


014220 


OOilSl 








BNE 


IS 




3832 


















3833 












IPLOT A 


GRAPH USING 


SEEK TIMES' RECORDED BEFORE 


3834 


















383S 


014222 








PLOTI 








3836 


014222 


104401 


014230 






TYPE 


?6SS 


; J TYPE ASCIZ STRING 


3837 


014226 


000422 








BR 


648 


nGET OVER THE ASCIZ 


3838 










M6S$f 


eASCIZ 


«Sig>€l2>^l2><i3>/X AXIS - SEEK TIME - MILI SECS/ 


3839 


0142.74 








64$| 








3840 


014274 


104401 


014302 






TYPE 


#67S 


nTYPE ASCIZ STRING 


3841 


014300 


000423 








BR 


66$ 


fiGET OVER THE ASCIZ 


3842 










f f67Ss 


' eASCIZ 


<l%><l2>n AXIS « CYLINDER SEEKED FROM 0/<iS><12><l2> 


3843 


0143S0 








6611 








3844 


















384S 


0H3S0 


104401 








TYPE 






3846 


0143S2 


002103 








BLNKS7 






3B47 


0143S4 


oosooo 








CLR 


RO 


ITYPE OUT THE TIME UNITS 


3848 


0i43S6 


010046 






101 


MOV 


R0,-CSP5 


F (MILI SECS) FOR THE X»AXIS 


3049 


014360 


104424 








TYPDSS 




fLIKE THISi 


38S0 


014362 


O0S700 








TSf 


RO 


fO 20 30 40sssfi8 


38SI 


014364 


001411 








BEQ 


21 




38S2 


014366 


022700 


000144 






CMP 


«l44yR0 




36S3 


014372 


003010 








BGT 


4S 




38S4 


014374 


022700 


000170 






CMP 


#170jB0 




38§S 


014400 


002412 








BLT 






38S6 


014402 


104401 








TYPE 






38S7 


014404 


002110 








BLNKS2 






3^818 


014406 


000404 








BR 


31 




38S9 


014410 


104401 






281 


TYPE 






38S0 


014412 


002111 








8LNKS1 






3661 


014414 


104401 






4$l 


TYPE 






3862 


014416 


002107 








BLNKS3 






3863 


014420 


0S2700 


000012 




3$f 


ADD 


#i2»K0 




3864 


014424 


0007S4 








BR 


IS 




386S 


















386® 


014426 


104401 








TYPE 






3867 


0J4430 


001213 








ICRLF 






3868 


014432 


104401 








TYPE 






3869 


014434 


002103 














3870 
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ZRKLE , 


PI 1 


26-APR«77 


12127 




Til 


SEEK FUNCTION TIMER 




3871 


0144 36 


012700 


177763 




PLTl i 


MOV 




jTYPE OUT THE X-^AXIS MARKERS 


3872 


Ot 4442 
















3873 


014442 


104401 


014450 






TYPE 




ffTYPE ASCIZ STRING 


3874 


1 4446 


000403 








BR 


64§ 


;|GET OVER -THE ASCIZ 


3R75 










1 }63$ t 


,ASCIZ 






3875 


014456 








64S 1 








3877 


1 4 4 S 6 


005 200 








INC 


RO 




3878 


J 4460 


001370 








BNE 


1@ 




3879 


















3880 










f IF SW 


4 IS SET 


THEN TYPE THE 


COMPLETE GRAPH , IF NOT TYPE THE SMALL GRAPH 


38 81 














#SW4,iSWR 




3882 


014 46 2 


3 2 7 7 7 


000020 


164450 




BIT 


J TYPE COMPLETE GRAPH? 


389 3 


01447 


0105 4 








BNE 


CMPGRP 


• YES BRANCH 


3884 
















ItIF NOT, TYPE SMALL GRAPH 


3885 


















3886 


















3887 


















3888 


3 4472 


005000 






SMGRPs 


CLE 


RO 




3889 


014474 


032777 


000040 


164436 


i${ 


BIT 


«SW5yiSWB 


iSKIP REST OF GRAPH? 


3890 


014502 


001445 








BEQ 


5S 


f YES 


3891 


1 4504 


104401 








TYPE 




;IN THIS GRAPH SEEK TIMES ARE 


3892 


1 4 5 6 


001213 








SCRLF 


f PLOTTED ONLY FOR SELECTED 


3893 














^CYLINDERS (NOT ALL} SHOWN BELOW | 


3894 














JO* 1,2 


,3,4, 6,8,10,12,14,16,18,20, 


3895 














125*30 


,35, 190, 195, 200, 203 


3896 


01 4510 


01 0046 








MOV 


R0,«»(SP) 


.•TYPE THE MARKERS 


3897 


14512 


1 04405 








TYPDS 






3898 


014514 


104401 


01 4522 






TYPE 


,65$ 


ffTYPE ASCIZ STRING 


3899 


014520 


000401 








BR 


64$ 


f fGET OVER THE ASCIZ 


1900 










J f 65$ 1 


«ASC1Z 


/-/ 




3901 


14 5 2 4 








641 i 








3902 


3 45 24 


010001 








MOV 


R0,B1 


;FOPM THE ADRES OF 'SEEK TIME' 


390 3 


014526 


006 301 








ASL 


Rl 




390 4 


014530 


016103 


027026 






MOV 


BUFRIOCRI ) , R3 


fGET THE SEEK TIME 


39o5 


0145 34 


0047 37 


014736 






JSR 


PC,PLTPT 


fGO PLOT IT 


3906 


014540 


022700 


000004 






C!^P 


5*4, RO 


fPLOTTED OPTO CYL 4? 


39o7 


01 4544 


003402 








BLE 


2S 


fYES 


3908 


U 3 4546 


05 20 








INC 


RO 




3909 


14550 


000751 








BR 


1$ 




3910 


014552 


022700 


000024 




2S i 


CMP 


#24»R0 fPLOTTED UPTQ CYL 20? 


3911 


01 4556 


003403 








BLE 


3$ 




3912 


014560 


062700 


000002 






ADD 


«2,R0 




3913 


01 4564 


000743 








BP 


1$ 




3914 


01 4566 


022700 


000310 




3S J 


CMP 


#3lO»B0 


fPLOTTED UPTO CYL 200? 


3915 


01457 2 


003403 








BLE 


4$ 




3916 


014574 


062700 


000005 






ADD 


#5,R0 




3917 


014600 


000735 








BR 






3918 


0146 02 


2 27 00 


000 3 1 2 




4$ ! 


CMP 


S312,R0 


fPLOTTED ALL CYLS? 


3919 


014606 


001 403 








BEQ 


5S 




1920 


014610 


062700 


000002 






ADD 


#2,P0 




3921 


14614 


007 27 








BR 


IS 




3922 


014616 


000137 


015224 




5$ i 


JMP 


TST12 




3923 


















3924 


















3925 










; IF SW 


4 IS SET 


THE COMPLETE GRAPH IS PRINTED OUT, IT GIVES TIMES FOR 


3«26 










f SEEKS 


FROM CYLINDER TO ALL 


OTHER CYLINDERS (0, 1 , 2, 3 , , 92025 « 
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3927 




















3928 


014622 


005000 




CMPGRP: 


CLR 


RO 






f IMTLZE COUNT 


39^9 


014624 


012701 


177773 




MOV 


t^SjRl 






f IMTLZE COUNT FOR Y-AXIS MARKER 


39 30 


014630 


012702 


027026 




MOV 


»BUFR10,R2 




f INITLZE PTR TO SEEK TIMES 


3931 


014 6 34 


104401 






TYPE 










3932 


01 4636 


001213 






SCRLF 










3933 


01 4640 


000412 






BP 


3$ 








3934 




















3935 


014642 


032777 


000040 


164270 2$l 


BIT 


#SW5,iSWR 






fSKIP REST OF GRAPH? 


39 36 


01 4650 


001002 






BNE 










3937 


014652 


000137 


015224 




JMP 


TST12 








3938 


01 4656 


005201 






INC 


Rl 






f TYPE OUT Y-AXIS MARKER »CYL 


3939 


01 4660 


001005 






BNE 


4$ 






f IF REQUIRED 


3940 


014662 


012701 


177773 




MOV 










3941 


014666 


010046 




SSI 


MOV 


RO*-(SP) 






f TYPE 'CYL 8' ON Y"AXIS 


3942 


01 4670 


104405 






TYPDS 








f (IN DECIMAL) 


3943 


01 467 2 


000402 






BR 


5$ 








3944 


01 4674 


104401 




4$S 


TYPE 










3945 


014676 


002104 






BLNKS6 










3946 


014700 






SSI 












3947 


014700 


104401 


014706 




TYPE 


,6S$ 






f f TYPE ASCIZ STRING 


3948 


01 4704 


000401 






BR 


64S 






ffGET OVER THE ASCIZ 


3949 










sASCIZ 


/-/ 








3950 


014710 






64$i 












3951 




















3952 


014710 


012203 






MOV 


CR2)+#R3 






fGET SEEK TIME 


3953 


014712 


004737 


01473S 




JSR 


PCPLTPT 






fGO PLOT THE POINT 


3954 




















3955 




















3956 


014716 


104401 






TYPE 










3957 


014720 


001213 






SCRLF 










3958 


014722 


005200 






INC 


RO 






fALL DONE? 


3959 


01 4724 


022700 


000312 




CMP 


#312#R0 








3960 


014730 


001344 






BNE 


2$ 






|IF NOTy GO BAK 


3961 


014732 


000137 


015224 


6SS 


JMP 


TST12 








3962 




















3963 








f PLTPT 












3964 








fTHE ROUTINE IS 


ENTERED WITH 


R3 


CONTAINING HORIZONTAL AXIS 


3965 








iCOORDINATE-' SEEK TIME 








3966 








iPLOT THE ACTUAL TIME ON THE 


GRAPH, IN KEEPING ^IW NORMAL 


3967 








fCONVENTION A NUMBER LESS 


THAN 


HALF THE CELL WIDTH IS 


3968 








sCONSlDERED AS 


FALLING UNDER 


THE PREVIOUS CELL* A NUMBER 


3969 








J GREATER THAN OR EQUAL TO 


HALF 


THE CELL WIDTH FALLS UNDER THE NEXT 


3970 








lEXl IF 


SEEK TIME IS 11 «5 


MS 


, IT'S BETW'N 10 g 12, BUT > ii 


3971 








jHENCE 


IT WILL 


BE PLOTTED 


AS 


12 


IF SEEK TIME IS 10,8 MS, 


3972 








jlfS BETW*N 10 


& I2r BUT 




11 


HENCE IT WILL BE PLOTTED 


3973 








?AS 10s 


MS 










3974 




















3975 


014736 


162703 


000310 


PLfPTs 


SUB 


#310»B3 






f FIND OUT HOW MANY BLANKS TO 


3976 


014742 


002403 






BLT 


71 






f INSERT TO PLOT THE POINT 


3977 


















f NOTE THE FIRST CELL a MS 


3978 


014744 


104401 






TYPE 










3979 


014746 


002UI 






BLNKSI 










3980 


0147S0 


000772 






BR 


PLTPT 








3981 


014752 


062703 


000144 




ADD 


#144, R3 








3982 


0147S6 


002402 






BLT 


§§ 
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3983 


014760 


104401 






TYPE 






3984 


014762 


002111 






BLNKSl 






398S 
3986 


014764 






Sis 








3987 


014764 


104401 


01477a 




TYPE 


,6SS 


nTYPE ASCIZ STRING 


3988 


014770 


000401 






BR 


64$ 


fjGEl OVER THE ASCIZ 


3989 










eASCIZ 


/%/ 




3990 


014774 






64$| 








3991 


014774 


000207 






RTS 


PC 




3992 

3993 








»TIMSEK 








3994 








jTHIS ROUTINE 


FINDS OUT THE TIME REQUIRED TO SEEK TO THE CYLINDER 


399S 








> INDICATED IN 


RKDAg 




3996 








f «##CAUT|ON»»» 


SECTOR COUNTER 


IS USED AS A REAL TIME CLOCK TO KEEP TIME, 


3997 








f ENTRY! 


JSR 


PCTIMSEK 




3998 








f 


RKDA CONTAINS THE CYLINDER TO BE SEEKED FROM THE PRESENT POSITION, 


3999 








jRETURN: 


R3 CONTAINS fi 


\E SEEK TIME IN MILI SECS, SCALE FACTOR a 0,01 


4000 
















4001 
















4002 














JR3 WILL COUNT REVOLUTIONS OF 


4003 


014776 


010246 




TIMSEKt 


MOV 


R2,"(SP) 


jDISK (FROM INDEX MARK TO INDEX MARK) 


4004 


015000 


005003 






CLB 


R3 


;40 MILI SECS FOR EACH REV 


4005 


015002 


01 3T01 


001452 




MOV 


RKDSiRl 




4006 


015006 


01U02 






MOV 


iRl,R2 




4007 


015010 


032702 


000400 




BIT 


#400»R2 


J WAIT FOR SDK 


4008 


015014 


001774 






BEQ 


IS 




4009 
















4010 


015016 


032702 


000010 




BIT 


#BIT3,P2 


IWAIT FOR SECTOR 10 SO THAT 


401 1 


015022 


001771 






BEQ 


i$ 


?U CAN START WAITING FOR 


4012 














J INDEX, SEC 


4013 
















4014 


015024 


01U02 




28: 


MOV 


§R1#R2 




4015 


015026 


032702 


000400 




BIT 


M00,R2 


jWAIT FOR SEC OK 


40t6 


015032 


001774 






BEO 


2S 




4017 


015034 


021102 






CMP 


®R1,R2 




4018 


015036 


001372 






BNE 


2S 




401,9 


015040 


032702 


000017 




BIT 


#17#R2 


;WAIT FOR SEC 0, INDEX MARK 


4020 


015044 


001367 






BNE 


2$ 


; AS SOON AS IT IS SEC 0, ISSUE 


4021 














; A SEEK k START TIMING 


4022 














; 


4023 


015046 


012777 


00001 1 


164402 


MOV 


«ll,eRKCS 


; ISSUE A SEEK, START TIMING 


4024 














;TriE SEC COUNTER 


4025 


Ot 5054 


104421 






CON.RDY 


jWAIT FOR CNTRL ROY 


4026 
















4027 


Of 5056 


011102 




3SS 


MOV 


9RlrP2 


;GET RKDS 


4028 


015060 


032702 


000400 




BIT 


#400, R2 


J WAIT FOR SDK 


4029 


015064 


001774 






BEQ 


3S 




4030 


015066 


020211 






CMP 


R2,iRl 


; INFO CORRECT? 


4031 


01S070 


001372 






BNE 


3$ 


?N0 


4032 


015072 


032702 


000100 




BIT 


«100,R2 


fR/W/S RDY SET? 


4033 


015076 


001025 






BNE 


SKDON 


; IF YES, BRANCH 


4034 


015100 


032702 


000017 




BIT 


#17#R2 


J WAIT FOR SEC CNTR TO MOVE 


4035 


015104 


001764 






BEQ 


3S 


jFPOM TO I 


4036 
















4037 


015106 


011102 




4$l 


MOV 


§P1,R2 




4038 


015110 


032702 


000400 




BIT 


»400,R2 


J WAIT FOR SDK 
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4039 


0)5114 


001774 






BEO 


4$ 




4040 


015116 


020211 






CMP 


R2,PR1 




4041 


015120 


001372 






BNE 


4$ 




4042 


015122 


032702 


000100 




BIT 


S100,R2 


;R/W/S RDY SET, SEEK DONE? 


4043 


015126 


001005 






BNE 


5S 


|YES, BRANCH 


4044 


015130 


032702 


000017 




BIT 


#17, R2 


JIF NOT KEEP TRACK OF SEC 


4045 


015134 


001364 






BNE 


4$ 


jCOUNTER. INCREMENT R3 AT 


4046 














;EVERY INDEX MARK, EVERY 


4047 


015136 


005203 






INC 


R3 


|4p MILI SECS 


4048 


015140 


000746 






BR 


3$ 


?G0 BAK, KEEP TIME 


4049 
















4050 


015142 


032702 


000017 


588 


BIT 


»17,R2 


;CHECK, IS IT INDEX MARK »SEC 


4051 


015146 


001001 






BNE 


SKDON 


; IF NOT, SKIP 


4052 


015150 


005203 






INC 


R3 


;IF YES, INCREMENT COUNT 


4053 
















4054 














ISEEK DONE, SAVE RKDS-SEC COUNTER, 


4055 


015152 






SKDONi 








4056 


015152 


012746 


000014 




MOV 


#14,»CSP) 


ffPUT THE MULTIPLES ON THE STACK 


40S7 


015156 


010346 






MOV 


R3,"(SP) 


MPUT THE MULTIPLICAND ON THE STACK 


4058 


015160 


004%37 


020500 




JSR 


PC,9#SMULT 


; jCALL THE MULTPLY ROUTINE 


4059 


015164 


012616 






MOV 


(5P)+, (SP) 


?f DISREGARD THE MSB'S 


4060 


015166 


012603 






MOV 


(SP34.,R3 


MGET the LSB'S of THE PRODUCT 


4061 


01517 


042702 


177760 




BIC 


#177760, R2 


jSEEKg TOTAL TIMEs(IN DECIMAL) 


4062 


015174 


060203 






ADD 


R2,B3 


; C(R3)X12+SEC COUNTER] X330XO, 01 


4063 














-•NOTE THERE IS A SCALE FACTOR 


4064 


015176 


012746 


000512 




MOV 


#512, "(SP) 


nPUT THE MULTIPLER ON THE STACK 


406S 


015202 


010346 






MOV 


R3,«(SP) 


" ; )PUT THE MULTIPLICAND ON THE STACK 


4066 


015204 


004737 


020500 




J-SR 


PC,9#8MULT 


IjCALL THE MULTPLY ROUTINE 


4067 


015210 


012616 






MOV 


(SP)+, (SP) 


n DISREGARD THE MSB'S 


4068 


015212 


012603 






MOV 


(SP)4,R3 


IJGET THE LSB'S OF THE PRODUCT 


4069 


015214 


062703 


000245 




ADD 


#245, R3 


; ASSUMPTION THAT EACH SECTOR 


4070 














jTAKES 3,3 MILI SECS, IF THE 


4071 














:DISK SPEED IS VERY MUCH DIFRNT 


4072 














;FROM THE SPEC SPEED OF 


4073 














; 1500 RPM (40 MS/REV) , THEN 


4074 














;SEC COUNTER WOULD NOT BE AN 


407S 














; ACCURATE TIME CLOCK, 


4076 


015220 


012602 






MOV 


CSP)*,R2 


;POP R2 BAK 


4077 


01S232 


000207 






RTS 


PC 


; RETURN 


4078 
















4079 
















4080 








1 








4081 








J^TEST 


12 


EN6 OF PROGRAM 




4082 










;«THIS 


IS NOT A TEST BUT IS JUST A LINKAGE 


4083 










f «PROVIDED TO TEST ALL 


THE DRIVES, 


4084 








1 








408S 


015224 


000004 




TST12S 


SCOPE 






4086 


015226 


10S237 


001233 




INCB 


DRVDON 




4087 


015232 


123737 


001223 001224 


BTEOPi 


CMPB 


DRVDON,DRIVS 




4088 


013240 


001402 






BEQ 






4089 


01S242 


000137 


003760 




JMP 


NXTDRV 




4090 
















4091 








sSBTfL 


END OF 


PASS ROUTINE 




4092 
















4093 
















4094 








|«INCREHENT THi 


: PASS NUMBER ($PASS) 
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409S 










|*IHDICATE END 


•»Or«PROGRAM AFTER 


i BafiQITQ THRU THF DQDCB&M 


4093 










|»TYPE 


"END PASS IXXXXX" (WHEIIE 




4097 










j»IF THERES A 


MONITOR GO TO IT 














I^IF THERE ISM 


*T JUMP TO ST3 




dnQ« 








































U u u u u 








SCOPE 












001102 






CLR 


gTSTNM 


; I aaiiKU inc* iStal nuntSctiy 






005237 


nfsi inn 






INC 


SPASS 




d f T4 

I 






< A n ft A ft 

i U U M u u 


A A < t ft ft 




BIC 


1 iOOOOOj IPASS 


• •nriM^T AT.f.nW a WB"fi MtlMBB'B 




1 S 2& V 










DEC 


CPCJt 


1 1 wUUr t 












lEOPCTS 


9 WORD 


1 




Air? 




n n 'S h "J "3 
U U ■! u i£ £ 








BGT 


SDOACfN 


J 1 XEa 


dins 

A ! AQ 




012737 








MOV 


C PC 5 * « ® C PC 3 




A1 ?0 




000001 






gENDCT j 


s WORD 


I 




^ 1 1 4 












SEOPCT 








015 302 




015347 






TYPE 


SENDMG 




Alia 


015 306 




A A 4 4 A A 

UU 1 1 ou 






MOV 


SPASS, ^CSP) 


IjlOnVCi SfMoS run ISrCtUUi 






104405 








TYPDS 




• » fin TVBCfisiiiiinB'r' T M & r. *er^TT Mfru 


4114 


0153S4 


4 f\& An i 


0iS344 






TYPE 


; iSNULL 


t m'P'VDtf 8 Nnf T f u a ar«fiB"n 


41 J S 


1 S 3 2 




A A ft A AT 
U U U U ^ ^ 




$GEf 42 8 


MOV 


i#42;R0 




A1 « ft 




A n 1 Anfi 

i» U * 'itw3 








BEQ 


$DQAGN 


4«Ri3&Mri4 f ST wn MniyTTnD 

||OfHMi«v«n i>|r Ivy i^UtvjiiUI^ 


: „ 


ft 1 ^ 


A ifi n ft A ^ 
1} U U U U 3 








RESET 






: „ 




004710 






$ENDAD! 


JSR 


PC| CRO) 


!|G0 TO MONITOR 


4119 


015332 


n A A "3 d A 
u u u « "8 u 














4 I ?0 
■ 


015334 


A A n '3 il A 
1/ V V » ** u 








NOP 




J 1 FOR 




^ 1 «^In 


n A A ^ d A 
U " w « t U 








NOP 




; >ACTll 












SDOAGNj 








4123 


015340 


000137 








JMP 


@(PCU 


1 f RETURN 


4124 


015 3 42 


003742 






SRTNADi 


gWORD 


ST3 




4! 25 


055344 


377 


377 


000 


SENULLi 


«BYTE 


-I^^IfO 


J JNULL CHARACTER STRING 


4126 


015347 


015 


042412 


042U6 


SENDMGl 


sASCIZ 


<S15><12>/END PASS ^/ 


4127 


015354 


050040 


051S01 


020123 










4128 


015362 


000043 














4129 
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4130 








4 131 








4132 








4133 








4134 








4135 








41 36 








4137 








4138 








4139 








4140 








414 J 








4142 








4143 








4144 








4145 








4146 








4147 








4148 








41 49 


015364 






415 


015364 


010146 




4151 


015366 


010246 




4152 


015370 


012701 


00126S 


4153 


015374 


012702 


001320 


4154 


015400 


012146 




4155 


015402 


104403 




4156 


01 5404 


002 




4157 


015405 


000 




4158 


015406 


104401 




4159 


015410 


002107 




4160 


015412 


012246 




4161 


015414 


104402 




4162 


015416 


104401 




4161 


015420 


002106 




4164 


015422 


104401 




4165 


015424 


001213 




4166 


015426 


022711 


177777 


4I'6 7 


015431 


001362 




4168 








4169 


015434 


104401 




4170 


015436 


001716 




41H 


015440 


010546 




4172 


015442 


042716 


160037 


4173 


015 446 


104402 




4174 








4175 


015450 


012602 




4176 


015452 


012601 




4177 


015454 


000207 




4178 








41 79 








4180 








4181 








4182 








4183 








4184 








4185 









jCOMMON SUBROUTINES AND HANDLERS 



,SBTTL ESR15 

jESRlS 

fTHIS ROUTINE IS USED TO TYPE OUT ERROR DATA FOR ITEM 15 

fOF THE ERROR TRBLE, AT THE TIME OF ENTRY INTO THIS 

J ROUTINE P5 CONTAINS THE DISK ADDRESS FROM WHICH THE 12 

jHEADERS WERE READ, THE SECTOR »'S WHICH GAVE BAD HEADERS HAVE 

jBEEN STORED STARTING AT 'BUFR' , THE CORRESPONDING BAD HEADERS 

jHAVE BEEN STORED STARTING AT 'BUFR1% 



fTHE PRINTOUT LOOKS LIKEl 
fSECS HDR RECVD 
} AA 



BBBBBB 


AAsBAD 


SEC S BBBBBBsBAD 


HEADER 


HDRsXXXXXX TRYSs 


Y 




MOV 


R1,«'(SP3 


} fPUSH Rl ON STACK 


MOV 


R2,<«CSP3 


IfPUSH R2 ON STACK 


MOV 


#8UFR,R1 


sSEC »*S STORED HERE PREVIOUSLY 


MOV 


#BUFRl,R2 


fBAD HDRS STORED 


HERE PPVSLY 


MOV 


CRU**«'CSP) 






TYPOS 




,»GQ TYPE OUT BAD 


SEC # COCTAL) 


«BYTE 


2 


J ONLY 2 DIGITS 




jBYTE 





jSUPRES LOG O'S 




TYPE 




fTYPE 3 BLNKS 




BLNKS3 








MOV 


CR2)4',-CSP) 


jGO TYPE OUT BAD 


HEADER 


TYPOC 








TYPE 








BLNKS4 








TYPE 








$CRLF 








CMP 


#177777? (Rl) 


J ALL BAD SEC S'S 


TYPD OUT? 


BNE 


11 


?IF NOT GO BAK 




TYPE 








MSG6 








MOV 


RB^'^CSP) 


jTYPE OUT EXPCTD 


HEADER FOR 


BIC 


#160037^ CSP) 






TYPOC 




;THAT CYLINDER 




MOV 


CSP)4-#R2 


IIPOP STACK INTO 


R2 


MOV 


(SP)4.,Ri 


;>POP STACK INTO 


Rl 


RTS 


PC 







sSBTTL ESR13 

?ESR13 

I THIS ROUTINE IS USED WITH 'ERROR U"" TO TYPEOUT OUT ERROR 
iDATA, THE SECTOR S'S WHICH GAVE BAD HEADERS HAVE BEEN STORED 
fSTARTING AT *BUFR*9 THE CORRESPONDING BAD HEADERS HAVE 
{BEEN STORED STARTING AT 'BUFPl', R5 CONTAINS THE EXPECTED 
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4 186 








iHEAOER FOR THAT CYLINDER, THE TYPEOUT LOOKS LIKE 


4187 






















|SEC# HDR RCVD 






4189 








;AA BBBBBB 


AAsBAD SEC » 


4190 








f s « 


BBBBBBsBAD HEADER 


4191 








fEXPCTD HDRsXXXXXX TRY8I 


Y SURbZ 


a 1 0^ 


„ „' 
















004737 


0153S4 


bOKl 3 1 uoH 


rC» £.0815 




4194 


015462 


1 0440 1 


01S470 


BR^^ 


? 65S 


; 1 TYPE ASC IZ STRING 


4195 


w i 3 *o o 


V u v* u 








; J GET OVER THE ASC I Z 












/ SURs/ 




4197 


OlSgOO 






64$ t 






4 1 9@ 




005046 






( SP J 




4199 


01S502 


3 27 05 


000020 


RTT 


# 20 » RS 


foUH UK 1 1 r 


4200 




001401 






1 i 




4201 


01 5S 1 


005216 




INC 






4202 


1 S5 1 2 


104402 




iSl TYPOC 






4203 














4204 


015514 


104401 


0020S 3 


TYPE 


»MSG13 




4205 




013746 


001254 


MOV 


RETRY2?-CSP) 






01S524 


005216 




INC 


CSP) 




420? 


013^26 


104402 




TYPOC 








1 S 5 3 


000207 




RTS 


PC 
































4211 








sSBTTL 


ESR20 




4212 








?ESR20 














f SUBROUTINE TO TYPE OUT ERROR 


DATA FOR 'ERROR 20' , AT THE TIME 










J or ENTRY# TABLE 


STARTING AT 


•BUFR' CONTAINS SECTOR #'S THAT GAVE BAD 


AO 1 ^ 








fHEADERS^ TABLE 


AT- 'BUFPl ' CONTAINS BAD HEADERS, R5 CONTAINS EXPECTED 










f HEADER FOR THE 


CYLINDER, 'INADP' AND 'OUTADR* CONTAIN THE CYLINDER 


4217 








1 ADDRESSES BETWEEN WHICH THE 


IMPLIED SEEK WAS TRIED « 
















4219 




004737 


1 3 ^ 9 Q 


ESR208 JSB 


PC,ESP13 


;GQ TYPE OUT SEC »'S# BAD HDRS 


4220 


1 


0047 37 


016320 


JSR 


PCjERR2 


;GET CYL S'S BETWN WHICH SEEK 














;WAS TRIED 


4222 


015542 


1 04401 


IS550 


TYPE 


#656 


; ;TYPE ASCIZ STRING 


4223 


015546 


000404 




BR 


64S 


f jGET OVER THE ASCIZ 










f|65SS eASCIZ 


/ CYLAe/ 




4225 


1 5S 6 






64g| 






4226 


015560 


013746 


00U62 


MOV 


5REG0,"(SP) 


;GU TYPE CYL % FROM WHERE 


4227 


015554 


104403 




TYPOS 




jSEEK BEGAN 










«BYTE 


3 


;TYPE 3 DIGITS 






000 




«BYTE 





fSUPRES LOG O'S 






104401 


1 55 76 


TYPE 


,67$ 


; ;TYPE ASCIZ STRING 


AO 3 1 


0135 


V V V " U 's 




BP 


66$ 


jjGET OVER THE ASCIZ 










M67Si «ASCIZ 


/ CYLBe/ 




^ . 


V I 3 6 Q D 






§6$l 








1 5606 


01 3746 


1 1 4 


MOV 


SREGi»-CSP) 


;TYPE CYL # TO WHICH SEEK 


4235 


1 S6 1 2 


1 0440 3 




TYPOS 




; WAS DONE 


42 36 


1 §6 1 4 


003 




sBYTE 


3 


JTYPE 3 DIGITS 


4237 


015615 


000 




^BYTE 





jSUPRES LDG O'S 


4238 


015616 


00020? 




PTS 


PC 


; RETURN 


4239 














4240 














4241 








»SBTTL 


ESR25 
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4242 


015620 


010205 




ESR25 1 MOV 


R2,P5 


;SAVE ADRES OF TERMINATOR 


4243 














4244 


015622 


012702 


001266 


MOV 


»BUFR,R2 


fINITLZE PTR TO TABLE STORING 


4245 












; ADRES OF BAD DATA 


4246 


015626 


012703 


001320 


MOV 


#BUFR1,R3 


; INITLZE PTR TO 'EXPCTD" DATA 


4247 


015632 


012704 


0013S2 


MOV 


#BUFR2#R4 


; INITLZE PTR TO 'RECVO' DATA 


4248 














4249 


015636 


032777 


020000 


163274 ISi BIT 


»SW13#§SWR 


;INHIBIT TYPE OUT? 


4250 


015644 


001076 




BME 


4$ 


; YES, EXIT 


4251 


015646 


104401 




TYPE 




J TYPE CR,LF 


4252 


01S650 


001213 




SCRLF 






4253 














4254 


015652 


163712 


001404 


SUB 


PBUFO, (R2) 


;GET WORD « IN BUFR (0/1, 2, 


4255 


015656 


006212 




ASR 


(R2) 




4256 


015660 


011246 




MOV 


(R2)»"(SP) 


; WHICH WAS BAD, NOTE YOU 


4257 












;CAN HAVE THE ACTUAL MEMORY 


4258 












; ADRES BY ADDING 'IDBUFO' 


4259 












;T0 THIS 


4260 


015662 


104403 




TYPOS 




;G0 TYPE WORD « THAT WAS BAD 


4261 


015664 


004 




,BYTE 


4 




4262 


0IS665 


000 




sBYTE 







4263 


01SS66 


104401 




TYPE 






4264 


015670 


002107 




BLNKSS 




;2 BLANKS 


4265 














4266 


015672 


012346 




MOV 


€R3)**^CSP) 


- ;GET EXPCTD DATA 


4267 


015674 


104402 




TYPOC 




;G0 TYPE IT 


4268 


015676 


104401 




TYPE 






4269 


015700 


002110 




, BLNKS2 






4270 


015702 


012446 




MOV 


CR4)+r"(SP) 


;GET RECVD DATA (BAD) 


4271 


015704 


104402 




TYPOC 




;G0 TYPE IT 


4272 


O1S706 


104401 




TYPE 






4273 


015710 


002110 




BLNKS2 






4274 














4275 


01S712 


012700 


000400 


MOV 


S400#R0 


;GET THE DISK ADRES FROM 


4276 


015716 


021200 




2%% CMP 


(R2)»R0 


;WHICH THIS (BAD) DATA WAS 


4277 


01S720 


00240S 




BLT 


3$ 


?READ 


4278 


01S722 


OS2700 


000400 


ADD 


#400, RO 




4279 


01S726 


022700 


002400 


CMP 


#2400, RO 




4280 


015732 


001371 




BNE 


28 




4281 














4282 


0IS734 


000300 




3®l SWAB 


RO 




4283 


015736 


005300 




DEC 


RO 




4284 


01S740 


063700 


001450 


ADD 


ADRESfRO 


;R0 CONTAINS THE DISK 


4285 












; ADRES FROM WHICH THE (BAD) 


4286 


OiS744 


010037 


001170 


MOV 


R0,$REG3 


;DATA WAS READ 


4287 














4288 


015750 


004737 


016220 


JSR 


PCBRKDA 


;G0 BREAK ABOVE DISK ADRES 


4289 












;INTO CYL#, SUR», SEC# 


4290 














4291 


0157S4 


013746 


001174 


MOV 


$REGS,-CSP5 


jGET THE CYL? 


4292 


015760 


104403 




TYPOS 




J TYPE IT 


4293 


013762 


003 




sBYTE 


3 


jONLY 3 DIGITS 


4294 


01S763 


000 




aBYTE 





»N0 LEADING O'S 


429S 


015764 


104401 




TYPE 






4296 


013766 


002107 




BLNKS3 






4297 
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A1 K^t2 




001176 






CSP) 


•GET SUPv s 


4299 


0157 / 1 


4 e\ A Af\ t 
1 0*siU J 




TYPOS 








4 300 


015 7 76 


00 1 










, < n T ^JT T flMT, V 




015 7 7 7 


000 




s 


U 






4302 
















4.3 3 


016000 


104401 




TYPE 








4304 


016002 


002106 












4 3 05 
















43<)6 


016004 


1 3 '46 


001200 


MOV 


SKEG7 » « 


C SP) 


; \3Ci 1 ociL 


43 07 


016010 


104403 




TYPOS 








4 3UB 


016012 


002 




9 BYTE 


2 




• Z UISjITS 


4309 


016013 


000 




aBYTE 









4 310 
















4 3 1 1 


016 014 


005722 




TST 


C H2 ) * 






4312 


016016 


020205 




CMP 


R2 jr B5 




jTIrlLU uUi AiiLi BAU UATA 


4 313 
















4 314 


016020 


01 306 






1 $ 




lif riUl tjUIr D«if\ 




016022 


1 04^01 




TVPF 








4 316 




002053 




M«?ri 1 






•* TRY ^ I * 


4 317 


016026 




001254 


MOV 








4 3 ! B 




6 2 716 


000003 


ADD 


#3, (SP3 




; FORM THE RETRY NO , 


4319 


016036 


104403 




TYPOS 






jTYPE IT OUT 


4320 


016040 


001 




.BYTE 


I 






4321 


016041 


000 




,BYTE 









4322 
















4323 


016042 


000207 




4$i BTS 


PC 




|IF YES, RETURN 



4 324 
4325 
4 3 26 
4327 
4328 
4329 
4330 
433 1 
4332 
4333 
43 34 
4335 
4 3 36 
4337 
4338 
4339 
43 40 
43 11 
4 3 4 2 
4343 

4344 
4 345 
43'^6 
4347 
4346 
4349 
4 3S0 
435 I 
4352 
4353 



;MESSAGE HANDLER 
J THE MESSAGE HANDLER IS USED FOR TYPING OUT MESSAGES & DATA 
fRELATED TO THE MESSAGE, IF SW13 IS SET, THE TYPEOUT IS 
^INHIBITED, THE CALL ISi 
f MESAGE ,XX 

J XXX IS THE MESSAGE NUMBER & PROVIDES AN INDEX TO THE 
) 'ERROR ITEMS TABLE' WHERE THAT MESAGE HEM 
fIS LOCATED, 

I THE MESAGE ITEM CONTAINSl 
I MSt 
f OH J 

J DTl 
I 
I IF 'OT' IS 
; INDICATED IN 



POINTER TO THE ASCII MESAGE 
POINTER TO THE DATA HEADER 
POINTER TO THE DATA 
TERMINATOR 

THE DATA IS TO BE PRINTED USING THE SUBROUTINE 
PLACE OF THE TERMINATOR 



016044 
016052 
016054 

01 6060 

016066 
016074 



032777 

001012 
01 1637 
162737 

1 ] 7637 

004737 



020000 163066 MSGEl 



001116 
000002 



000000 
017446 



016100 062716 000002 
01610 4 000002 



BIT 


#SW13,@SWR 


; INHIBIT TYPEOUT? 




BNE 


IS 


fIF YES, EXIT 




MOV 


CSP) ,$ERPPC 


;GET ADRES OF 'MESAGE' 


CALL 


SUB 


#2,SERRPC 


; STORE IT 




MOVB 


iCSP) ,$ITEMB 


;GET MESAGE # (INDEX TO 


ITEM TABLE) 


JSP 


PC, P#ERRTyP 


;G0 TO 'ERRTYP' & TYPE 


OUT 






; INFO 




ADD 


#2, (SP) 


; ADJUST RETURN ADDRES 




BTI 




;EXIT 





jTHIS ROUTINE IS USED FOR TYPING OUT ASCII MESSAGES. 

;THE MESSAGE IS TYPED SW13 IS CHECKED & IF SET THE 
jTYPEOUT IS INHIBITED & AN EXIT IS MADE. 

I THE CALL FOR THIS ROUTINE IS "TYPMSG" , AN ENCODED 
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ZPKLK 


PI 1 26 


»APR-77 


1 2 8 27 




ESR25 




4354 










jTRAP INSTRUCTION , 


4 355 










fTHE POINTER TO 


THE ASCII MESSAGE TO BE TYPED IS LOCATED IN THE 


4356 










J WORD FOLLOWING 


THE ^TYPMSG" CALL, 


4357 














4358 


01 61 06 


032777 


020000 


163024 


TYgMSGj BIT 


#SW13,@SWR ; INHIBIT TYPEOUT? 


4359 


016114 


no 1005 






BNE 


2$ ; YES, EXIT 


4 36 


16116 


01 7637 


000000 


016126 


MOV 


9(SP) , IS ;GET POINTER TO ASCII MESSAGE 


436 J 


01612 4 


1 04401 






TYPE 


;G0 TYPE ASCII STRING 


43h2 


016126 


000000 






1$: 




4 36 3 


016130 


062716 


000002 




2$> ADD 


#2, (SP) jADJUST RETURN ADRES, SKIP OVER 


4 36'i 












; POINTER ON RETURN 


4355 


016134 


000002 






RTI 


;EXIT 


4366 














4367 














4368 














4369 














4370 










f GT5RG 




437 1 










tTHIS ROUTINE EXTRACTS THE CYLINDER $ FROM RKDA AND STORES IT 


4372 










;IN $REG4. THEN 


TRANSFERS RKCS, ER, DS, DA TO SREGO, 3REG1, $REG2, SREG3 


437 3 


016136 


017746 


163322 




GT5RGI MOV 


9PKDA,-CSP) JPUSH RKDA ONTO STACK 


437 4 


016142 


042716 


160037 




BIC 


#160037, (SP) jMASK OUT NON-CYLINDER BITS 


4375 


016146 


006316 






ASL 


CSP) jSHIff 8 BITS OF CYL ADRES TO LD BYTE 


4376 


0J6150 


006316 






ASL 


CSP) 


4377 


016152 


006316 






ASL 


CSP) 


4378 


016154 


000316 






SWAB 


CSP) 


4379 


016156 


112637 


001172 




MOVB 


CSP)4'j$REG4 ;UP STACK 


438C 














4381 














438 2 














4383 










?GT4RG 




4 384 










iTHIS ROUTINE TRANSFERS THE CONTENTS OF RKCS, RKEP, RKDS 


4385 










fRKDA TO SREGO, 


gPEGl, 3FEG2, $REG3 RESPECTIVELY « SREG'S 


4386 










1 ARE USED FOR TYPING OUT THERE CONTENTS AT THE TIME OF ERROR 


4 387 














4388 


016162 


017737 


163270 


001162 


GT4PGJ MOV 


9RKCS, SREGO ;GET RKCS 


4389 


016170 


017737 


163260 


001164 


MOV 


9RKER,SREG1 ; RKER 


4390 


016176 


017737 


163250 


001166 


MOV 


@RKDS,$REG2 ; RKDS 


439 1 


016204 


017737 


163254 


001170 


MOV 


@RKDA, SREG3 ; RKDA 


4 392 


016212 


000207 






RTS 


PC ;EXIT FROM THIS ROUTINE 


4393 














4394 










fGETlNF 




4395 










iTHIS ROUTINE SAVES THE CONTENTS OF RKCS IN SREGO 


4396 










fRKER IN SREGi, 


RKDS IN $REG2. THEN IT BREAKS RKDA 


4397 










> INTO DRIVE NO, 


CYLINDER #, SURFACE AND SECTOR # , 


4398 










|AND SAVES THEM 


IN SREG4, SREG5, SREG6, 8REG7 « 


4399 














4400 


016214 


004737 


016162 




GETINF: JSR 


PC,GT4RG 


4401 


016220 


010046 






BRKDAj MOV 


RO,-(SP) 


4402 


016222 


010146 






MOV 


R1,«(SP) 


4403 


016224 


010246 






MOV 


R2,»'CSP) 


4404 


016226 


012700 


001202 




MOV 


8SREG7+2,R0 


4405 


016232 


013701 


001170 




MOV 


$REG3,Ri 


4406 


016236 


010102 






MOV 


R1,R2 


4407 


016240 


042702 


177760 




BIC 


#177760, R2 


4408 


016244 


010240 






MOV 


R2,»CR0) 


4409 


016246 


006201 






ASR 


Rl 
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4410 


016250 


006201 




ASB 


Rl 


4411 


016252 


006201 




ASR 


Rl 


4412 


016254 


006201 




ASR 


Rl 


4413 


016256 


010S02 




MOV 


R1,R2 


4414 


016260 


042702 


177776 


BIC 


#177776* 


4415 


016264 


010240 




MOV 


R2,»CR03 


4416 


016266 


006201 




ASR 


Rl 


4417 


016270 


010102 




MOV 


R1,B2 


4419 


016272 


042702 


177400 


BIC 


#177400* 


4419 


016276 


010240 




MOV 


R2i«'CR03 


4420 


016300 


000301 




SWAB 


Rl 


4421 


016302 


042701 


177770 


BIC 


#l77770y 


4422 


016306 


010140 




MOV 


RU^-CRO) 


4423 


016310 


012602 




MOV 


CSP)+,R2 


4424 


016312 


012601 




MOV 


(SPD+,R1 


4425 


016314 


012600 




MOV 


(SP)+,RO 


4426 


016316 


000207 




RTS 


PC 



4427 
4428 
4429 
4430 
4431 
4432 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 
4441 
4442 
4443 
4444 
4445 
4446 
4447 
4448 
4449 
4450 
4451 
4452 
4453 
4454 
4455 



016320 
016326 

016332 
016340 
016346 
016352 
016354 
016356 
016362 
016370 
016374 



013737 
004737 
013737 

013737 
004737 
005704 
001407 
013746 
013737 
012637 
000207 



001260 
016434 
001162 
001262 
016434 



001162 
001164 
001164 



001162 ERR2I 



001 164 
001162 



l$s 



sSBTTL ERRS 

»ERR2 

J THIS ROUTINE GETS THE CYLINDER NUMBERS BETWEEN WHICH (IMPLIED) SEEK 

}WAS DONE, (R4)a0 INDICATES SEEK FROM 'OUTADR' TO 'INADR' 

I (P4)=l INDICATES SEEK TO 'OUTADR', ON EXIT SREGO CONTAINS C¥L « 

f FROM WHICH SEEK WAS INITIATED, SPEGl CONTAINS CYL # TO WHICH SEEK WAS DONE 



MOV 
JSR 
MOV 
MOV 
JSR 
TST 
BEQ 
MOV 
MOV 
MOV 
PTS 



INADR, $REGO 
PC,GCYL 

SREGOf SREGI 

OUTADR, SREGO 

PCGCYL 

R4 

IS 

SREGO, -(SP) 
SREGl, SREGO 
(SP)+,$REG1 

PC 



jGET CYL ADRES 
jGO GET CYL# FROM IT 
f SAVE 

;GET CYL ADRES 

;G0 GET CYL # FROM IT 

;GLING WHICH WAY? 

; 'OUTADR' TO 'INADR', 

jEXCHANG CYL" TO GET 
SCORBECT 'TO' & 'FROM' 

; RETURN 



,SBTTL EPRl 

jERPl 

jTHIS SUBROUTINE FINDS OUT THE CYLINDER NQS, BETWEEN WHICH THE SEEK 
J IS DONE, THE CYLINDER » WHERE THE HEADS WHERE PRIOR TO MOVING, IS 
jDEPOSITED IN SREGO. THE CYLINDER 9 WHERE THE HEADS SHOULD BE AFTER 



4456 
4457 

4458 



f MOVEMENT, IS DEPOSITED IN SREGl , P4 INDICATES WHICH DIRECTION THE. 
;HEADS WERE MOVING, IN OR OUT. P5 CONTAINS THE 
fDISK ADDRESS (IN OR OUT AS THE CASE MAY BE) , 



4459 

4460 
4461 
4462 
4463 
4464 
146 5 



016376 
016402 
016406 
016410 
016412 
016420 



010537 
004737 
005704 
001006 
01 3737 
005037 



001 162 
016434 



001162 
001162 



EPRl I MOV 
JSR 
TST 

8NE 

001164 MOV 
CLR 



BS, SREGO 

PCGCYL ;G0 GET CYL S 

R4 J WAS GOING IN OR OUT? 

IS ;OUT 
SREGO, SREGl 
SREGO 
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EPRl 



4 466 


016424 


000207 




RTS 


PC 




4467 


016426 


005037 


00U64 


ISi CLR 


SPEGl 




4468 


016432 


000207 




HTS 


PC 




4469 














4470 














4471 








,SBTTL 


GCYL 




4472 








jGCYL 






4473 








jTHIS ROUTINE 


EXTRACTS THE 


CYLINDER NO, FROM THE DISK ADDRESS 


4474 








jCONTAlNED IN 


'SREGO', AND 


THEN 9T0RES IT BACK IN 'SREGO' 


4475 


016434 


010046 




GCYL: MOV 


RO,"(SP) 


;PUSH RO ONTO STACK 


4476 


016436 


013700 


001162 


MOV 


SREGO, RO 




4477 


016442 


042700 


160037 


BIC 


#160037, RO 


J MASK OUT DRV « BITS & 


4478 












jSUR, SEC BITS IF PRESENT 


4479 


016446 


006200 




ASR 


RO 




4480 


016450 


006200 




ASR 


PO 


;SHIF T CYL BITS RIGHT 


4481 


016452 


006200 




ASR 


RO 


jBY 5 


4482 


016454 


006200 




ASR 


RO 




4483 


016456 


006200 




ASR 


RO 




4484 


01 6460 


O10037 


001162 


MOV 


RO, SREGO 


jSTORE CYL « IN SREGO 


4485 


016464 


012600 




MOV 


(SP)+,R0 


J POP RO FROM STACK 


4486 


016466 


000207 




RfS 


PC 


;EXIT 



4487 



4489 
4490 
4491 
4492 
4493 
4494 
4495 
4496 
4497 



,SBTTL DRV, RESET - DRIVE RESET ROUTINE 

sSBTTL RESDON « WAIT FOR DRIVE RESET TO BE DONE 

»DR.RST 

I THIS ROUTINE DOES A DRIVE RESET ON l-HE DRIVE WHOOSF ADDRESS IS IN 
iRKDA, MULTIPLE RETURN ADDRESSES FOR THIS ROUTINE ARE PROVIDED ^ 
>1F THERE IS NO ERROR (R/W/S RDY SETS WITHIN CERTAIN TIME) , THEN 
I A NORMAL EXIT IS MADE, IF R/W/S RDY DOES NOT SET ERROR IS REPORTED, 



4498 


016470 


005037 


001174 




DR»RSTj 


CLR 


SREG5 


; INITIALIZE THE COUNT 


4499 


016474 


013777 


001230 


152762 




MOV 


DRIVAD,&RKDA 




4500 


016502 


012777 


000015 


162746 




MOV 


#15,iRKCS 


;DRIVE RESET, GO 


4501 


016510 


104421 








CON, RDY 






4502 


016512 


000402 








BR 


RESsD04-4 




4503 


016514 


00S037 


001174 




RES.DOj 


CLR 


§REG5 




4504 


016320 


032777 


000100 


1627S4 


IS! 


BIT 


#100,§RKDS 


>DID R/W/S RDY 


450S 


016526 


001024 








BNE 


2$ 




4506 


016530 


012746 


177770 






MOV 


#«'10,«'(SP) 


; PUSH COUNT ON SP 


4507 


016534 


00S216 








INC 


(SP) 


jCOUNT IT DOW 


4508 


016S36 


001376 








BNE 


«»2 




4S09 


016540 


005726 








TST 


(SP)* 


;POP UP SP 


4510 


016S42 


005237 


001174 






INC 


SREG5 


flF NOT WAIT 


4511 


016546 


001364 








BNE 


IS 


J WAITED LONG? 


4512 


016550 


032777 


020000 


162362 




BIT 


»SW13,@SWR 




4513 


016556 


001010 








BNE 


2S 




4514 


016560 


104420 








TYPMSG 






4515 


016562 


002027 








MSG12 






4516 


016564 


104420 


001733 






TYPMSG 


,HSG7 




4517 


016570 


011546 








MOV 


(SP),'»(SP) 




4518 


016572 


162716 


000002 






SUB 


»2,(SP) 




4519 


016576 


104402 








TYPOC 






4520 


016600 


000002 






2Si 


RTI 
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4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
45 37 
4538 
4539 
4540 



45 41 
















4542 
















4543 
















4544 










fCN^RDY 






45 45 










STHE CN^ftDY ROUTINE IS CALLED 


BY USING CNT.RDY WHICH IS A TRAP 


45 46 










1 INSTRUCTION WITH ITS LOWER BYTE ENCODED, 


4547 










J THIS ROUTINE WAITS FOR THE CONTROL READY BIT TO SET AND WHEN IT 


45 48 










sSETS EXITS OUT 


, IF WITHIN A CERTAIN TIME CNTRL RDY DOES 












fNOT SET AN ERROR IS REPORTED^ 


WAITING TIME IS 883 MS FDR 11/20 


455 










!l75 MS FOB 11/45 WITH BIPOLAR 


MEMORY, 


4551 


6602 


012777 


00000 1 


1 ^?^^46 

A w & O ™ V 


CN^RSTi MOV 


#1,9RKCS 


; ISSUE A CONTROL RESET 


455 2 


V 1 6 D 1 


0127 37 


17 75 00 


001 170 


MOV 


#-3O0»SREG3 


; SET UP COUNT 


455 3 




000402 






BR 


CN«PDY4'4 


fSKIP OVER CN ,RDY 


4554 


16 620 


50 37 


00U70 




CN.PDYl CLB 


$REG3 




4555 


016624 


105777 


162626 




i$S TSTB 


§RKCS 


;DID CNTRL-RDY SET? 


4556 


016630 


100431 






8M1 


2$ 


;YES, EXIT 


4557 


016632 


005237 


001170 




INC 


$REG3 


; WAITED LONG? 


455S 


166 36 


001372 






BNE 


IS 


J IF NOT* GO BAK & WAIT 


4559 


016640 


104420 






TYPMSG 






4560 


016642 


001742 






MSGIO 






4561 


016644 


104401 


016652 




TYPE 




J f TYPE ASCIZ STRING 


4562 


016650 


000403 






BP 


64$ 


J f GET OVER THE ASCIZ 


4563 










ff65$« .ASCIZ 


<15><12>/PC=/ 




4564 


01 6660 








64SS 






4565 


016660 


0U646 






MOV 


tSP),"CSP3 




4566 


01666 2 


1 62716 


000002 




SUB 


#2* CSP) 




4567 


16666 


104402 






TYPOC 




|G0 TYPE PC IN THE MAIN PROGRAM, 


4568 














f WHERE ERROR OCCURRED 


4569 


016670 


104401 


016676 




TYPE 


,67S 


} jTYPE ASCIZ STRING 


4570 


016674 


000404 






BR 


66$ 


1 jGET OVER THE ASCIZ 


457 1 










fj67Sl ,ASCIZ 


/ RKCSss/ 




4572 


01 6706 








66S! 






4573 


01 6706 


017746 


162544 




MOV 


?RKCS, 


;GET RKCS 


4574 


016712 


104402 






TYPOC 




;G0 TYPE IT 


4575 
















4576 


016714 


000002 






2S! RTI 




jPETURN FROM THIS 


457 7 














J ROUTINE TO THE MAIN 



sSBTTL CON, RESET • CONTROL RESET ROUTINE 
,SBTTL CONePDY «• WAIT FOP CONTRPL BEADY 
ICON, RESET 

jCONsRDY 

I THIS ROUTINE IS CALLED BY USING 'CNT, RESET' WHICH IS ACTUALLY 

r'TRAP^ INSTRUCTION WITH THE LOWER BYTE ENCODED TO PROVIDE 

I AN INDEX TO THE CONTROL-RESET ROUTINE BELOW« 

f THE ROUTINE ISSUES A CONTROL RESET AND WAITS FOR 

jTHE 'CNTRL RDY' FLAG TO SET» WHEN THE FLAG SETS 

J AN EXIT IS HADE OUT OF THE ROUTINE, IF 'CNTRL-RDY' 

f DOES NOT SET WITHIN A CERTAIN TIME AN ERROR MESSAGE 

I CNT RDY DIDN'T SET 

1 PCsXXXXXX RKCSsXXXXXX 

jIS GIVEN, 

;THIS ROUTINE IS CALLED THROUGH THE 'TRAP' INSTRUCTION 
;USING THE LOWER BYTE AS AN INDEX TO THIS ROUTINE. 
J THE TRAP DECODER LOCATED AT 'STRAP' , 
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4578 
45 7 9 
45 RO 

45ei 

4582 
4bH3 

4584 
4585 
4586 
4587 



4606 
4607 
<I608 
4609 
4610 
461 1 
4612 
4613 
4614 
4615 
4616 
4617 
4616 
4619 
4620 
4621 
4622 
4623 
4624 
4625 
4626 
4627 
4620 
4629 
4630 
4631 
4632 
4633 
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CON , RDY - WAIT FOR CONTROL READY 

; PROGRAM 

,SBTTL TSTbRWS - WAIT FOR R/W/S RDY 

jTST.RWS 

jTHIS ROUTINE WAITS FOR THE R/W/S BEADY TO ET AND RETURNS 
|T0 THE MAIN PROGRAM WHEN IT SETS, IF IT DOES NOT SET 
JWITHIN A CERTAIN TIME AN ERROR IS REPORTED, 
jWAITING TIME APPROX, 1040 MS FOR 11/20, 208 MS FOB 11/45 



4588 


0167 16 


005037 


001264 




TSTPWSl 


CLR 


TIMER 


4589 


016722 


032777 


000100 


162522 


ISl 


BIT 


#1 OOjiRKDS 


4590 


016730 


01017 








BNE 


2S 


4591 


016732 


005237 


001264 






INC 


TIMER 


4592 


016736 


001371 








BNE 


16 


4593 


016740 


032777 


020000 


162172 




BIT 


#BIT13f §SWR 


4594 


016746 


001010 








BNE 


2$ 


4595 


016750 


1 04420 


002027 






TYPMSG 


»MSG12 


4596 


016754 


104420 


001733 






TYPMSG 


?MSG7 


4597 


016760 


011646 








MOV 


csp)*-csp) 


4598 


016762 


162716 


000002 






SUB 


#2, tSP) 


4599 


016766 


104402 








TYPOC 




4600 


016770 


000002 






2$l 


RTI 




4601 
















46 2 












,SBTTL 


TEST ABORT 


46 3 










f ABRT 






46 4 
















4605 


016772 


104401 


001616 




ABRTJ 


TYPE 


fMSG3 



016776 113746 
017002 104402 
017004 000207 



MOVB 

TYPOC 

RTS 



STSTNM^^-CSP) 



017006 

017006 104407 

017010 032777 

017016 001053 



;COMMON SUBROUTINES & HANDLERS 

sSBTTL SCOPE HANDLER ROUTINE 

»»THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 

f *AND LOAD THE TEST NUMBEP( 8TSTNM) INTO THE DISPLAY REG, CDISPLAY<7 I0>) 

|*AND LOAD THE ERROR FLAG (3ERFLG) INTO DISPLAY<1S S 08> 

f »THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE AREl 

f »SW14=l LOOP ON TEST 

j»SW09tsl LOOP ON ERROR 

f »CALL 

|« SCOPE I fSCOPEalOT 

SSCOPEl 



000400 162122 



017020 032777 040000 

017026 001047 



017030 000416 



162112 ill 



J f TEST FOR CHANGE IN SOFT-SWR 

) WAS SW8 USED TO SELECT 
fh TEST? IF YES, SKIP OVER 
?THE REST, U ARE LOOPING ON 
IlLOOP ON PRESENT TEST? 
MYES IF SW14al 
)09»»SSTART OF CODE FOR THE XOR TESTER|«««» 

5XTSTRI BR 68 IF RUNNING ON THE "XOR" TESTER CHANGE 



CKSWR 

BIT 
BNE 

BIT 
BNE 



#SW8?iSWR 
fOVER 



#BIT14,§5WR 

IQVER 
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4634 
463S 
4636 
4637 

4638 
4639 
4640 
4641 
4642 
4643 
4644 
464S 
4646 
4647 
4648 
4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
46S9 
4660 
4661 
4662 
4663 
4664 
466S 
4666 
4667 
4668 
4669 
4670 
4671 
4672 



017032 
017036 

017044 
017050 
017054 
017056' 
017060 
017064 
017066 
017066 
017072 
017074 
017102 
017104 
017112 
017U4 
017120 
017124 
017130 
017134 
017140 
017146 
017154 
017160 



013746 
012737 
005737 
012637 
000421 
022626 
012637 
000407 

105737 
001412 
032777 
001404 
013737 
000415 
105037 
105237 
011637 
011637 
005037 
112737 
013777 
013716 
000002 



000004 
017056 
177060 

000004 



001103 

001000 

001110 

001103 
001102 
001106 
OOlllO 
001204 
000001 
001102 
001106 



MOV 
MOV 
TSf 
MOV 
BR 
CMP 
MOV 
BR 

fill |«S#^#END 



162036 
001106 



001U5 

161766 



2SI 



4§! 

$SVLAD! 



SOVER: 



TSTB 

BEQ 
BIT 

BEQ 
MOV 

BR 

CLRB 

INCB 

MOV 

MOV 

CLR 

MOVB 

MOV 

MOV 

RTI 



f #ERRVEG,»(SP) 
»SS»@#ERRVEC 
§#177060 
(SP)'f »9«ERRVEC 
$SVLAD 
CSP)+, (SP)+ 
CSP)4-,9#ERRVEC 
7$ 

OF CODE FOR THE XOR 
SERFLG 
SSVLAD 
SBIT09»&SWR 

4$ 

$LPERR,SliPADR 
SOVER 
8ERFLG 
8TSTNM 
(SP)rSLPADR 
(SP),8LPEPR 
8ESCAPE 
«1,8ERMAX 
STSTNM,gDISPLAy 
8LPADP, (SP) 



IfTHIS INSTRUCTION TO A "NOP" (N0Pa24ti) 
I SAVE THE CONTENTS OF THE ERROR VECTOR 
f SET FOR TIMEOUT 
I TIME OUT ON XOR? 
f RESTORE THE ERROR VECTOR 
I GO TO THE NEXT TEST 
jCLEAR THE STACK AFTER A TIME OUT 
> RESTORE THE ERROR VECTOR 
ILOOP ON THE PRESENT TEST 
TESTER»#»«« 

;HAS AN ERROR OCCURRED? 

IBR IF NO 

I LOOP ON ERROR? 

|BR IF NO 

f SET LOOP ADDRESS TO LAST SCOPE 

I ZERO THE ERROR FLAG 
f COUNT TEST NUMBERS 
J SAVE SCOPE LOOP ADDRESS 
ISAVE ERROR LOOP ADDRESS 
fCLEAR THE ESCAPE FROM ERROR ADDRESS 
lONLY ALLOW ONE(l) ERROR ON NEXT TEST 
fDISPLAY TEST NUMBER 
f FUDGE RETURN ADDRESS 
IjFlXES PS 



,S8TTL ERROR HANDLER ROUTINE 



ji^SWI5 = l 
}»SW13=i 
;*SW1031 
l»SW09si 
l*SW12al 



HALT ON ERROR 

INHIBIT ERROR TYPEOUTS 

BELL ON ERROR 

LOOP ON ERROR 

CYCLE ON ERROR TO PREVIOS 



SCOPE' STATEMENT 



l*GO TO ERRTYP ON ERROR 
l»NOT FROM SYSMAC 



4673 


017162 


104407 






SERROR: 


CKSWR 




fCHECK FOR SOFTWARE SWITCH 


4674 


017164 


105237 


001103 




7SS 


INCB 


lERFLG 


fSET THE ERROR FLAG 


4675 


01717 


001775 








BEO 


78 


; DON'T LET THE FLAG GO TO ZERO 


4676 


017172 


013777 


001102 


161742 




MOV 


STSTNM,?DISPLAY 




4677 


017200 


032777 


002000 


161732 




BIT 


#SW10f @SWR 




4678 


017206 


001402 








BEQ 


IS 




4679 


017210 


104401 


001206 






TYPE 


,SBELL 




4680 


017214 


005237 


001112 




18! 


INC 


6ERTTL 




4681 


017220 


011637 


001116 






MOV 


(SP) ,8ERRPC 




4682 


















4683 


017224 


032777 


000004 


161706 




BIT 


8SW2f @SWR 


;DRDP THE DRIVE? 


4684 


017232 


001404 








BEQ 


58 


;SW NOT SET, SKIP 


4685 


017234 


023727 


001112 


000006 




CMP 


$ERTTLy#6 


;MQRE THAN 6 ERRORS ON THIS DRIVE? 


4686 


017242 


101044 








BHI 


68 


; YES, DROP THE DRIVE 


4687 


















4688 


017244 


162737 


000002 


001116 




SUB 


#2,§ERRPC 




4689 


017252 


117737 


161640 


001114 




MOVB 


iSERRPCySITEMB 
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4690 


017260 


032777 


020000 


161652 




BIT 


#SWI3,§SWR 




4691 


017266 


001004 








BNE 


2$ 




4692 


017270 


004737 


017446 






JSH 


PC,g#ERRTYP 




4693 


017274 


104401 


001213 






TYPE 


,$CRLF 




4694 


017300 


023737 


000042 


000046 


2Si 


CMP 


@#42f @#46 


> ARE WE IN ACTll AUTO MODE? 


4695 


017306 


O0J403 








BEQ 


g + 10 


J YES, HALT ON ERROR 


4696 


017310 


005777 


161624 






TST 


3SWR 


; SWR15 (HALT ON ERROR) SET? 


4697 


017314 


100002 








BPL 


33 


jBRANCH IF NOT . 


4698 


017316 


000000 








HALT 




/ J HALT ON ERROR 


4699 


017320 


104407 








CKSWR 




jCHLCK FOR SOFTWARE SWITCH REGISTER 


4700 


017322 


032777 


010000 


161610 


381 


BIT 


#SWl2,iSWR 




4701 


017330 


001402 








BEQ 


«*6 




4702 


017332 


013716 


001106 






MOV 


8LPADR, (SP) 




4703 


017336 


032777 


001000 


161574 




BIT 


t»SW09,6>SWR 




4704 


017344 


001402 








BEQ 


41 




4705 


017346 


013716 


OOlllO 






MOV 


ILPERR, (SP) 




4706 


017352 


000002 






4$l 


RTI 






4707 


















4708 


017354 


013746 


001226 




6$r 


MOV 


DRVPTR,«(SP) 


;GET POINTER TO DRIVE # 


4709 


017360 


162716 


000002 






SUB 


«2, (SP) 




4710 


017364 


042736 


000377 






BIC 


«377,9(SP)+ 


;CLEAR THE DRIVE PRESENT FLAG 


4711 


017370 


104401 


002064 






TYPE 


,MSG14 




4712 


017374 


013746 


001230 






MOV 


DRIVAD,»(SP) 




4713 


017400 


000241 








CLC 




;GET THE DRIVE « 


4714 


017402 


006116 








ROL 


(SP) 




4715 


017404 


006US 








ROL 


CSP) 




4716 


017406 


006116 








ROL 


C5P) 




4717 


017410 


006116 








ROL 


(SP) 




4718 


017412 


104402 








TYPOC 




;TYPE IT OUT 


4719 


017414 


10440S 


017422 






TYPE 


f 6S$ 


nTYPE ASCIZ STRING 


4720 


017420 


000405 








BR 


64$ 


; ;GET OVER THE ASCIZ 


4721 










1 1658! 


9ASCIZ 


/ DROPPED/ 




4722 


017434 








64$| 








4723 


017434 


105337 


001224 






DECS 


DRIVS 


jDECRMNT # OF DRIVS PRESENT 


4724 


017440 


022626 








CMP 


CSP)*,CSP5* 


; RESTORE STACK 


4725 


017442 


000137 


015232 






JMP 


BTEOP 


rEXIT 


4726 


















4727 


01744§ 








ERRTYPI 








4728 


017446 


104401 


001213 






TYPE 


#SCRLF 


; "CARRIAGE RETURN" & LINE FEED« 


4729 


0174S2 


010046 








MOV 


RO,-(SP) 


(SAVE RO 


4730 


0174S4 


OOSOOO 








CLR 


BO 


yPICKUP THE ITEM INDEX 


4731 


017456 


153700 


0Oiil4 






BISB 


§#$ITEMB,RO 




4732 


017462 


001011 








BNE 


I'S 


;IF ITEM NUMBER IS ZERO, JUST 


4733 
4734 
















jTlfPE THE PC OF THE ERROR 


473S 


017464 


013746 


OOlllS 






MOV 


|ERRPC#'«CSP) 


fSAVE 8ERRPC FOR TYPEOUT 


4736 
















; ERROR ADDRESS 


4737 


017470 


104402 








TYPOC 




|G0 TYPE--OCTAL ASCIKALL DIGITS) 


4738 


017472 


104401 








TYPE 






4739 


017474 


oonii 








MSG7 






4740 


017476 


013746 


001ll§ 






MOV 


SERRPC**«CSP) 




4741 


017502 


104402 








TYPOC 






4742 


017504 


000440 








BR 


6$ 


J GET OUT 


4743 


017S0S 


005300 








DEC 


RO 


1 ADJUST THE INDEX SO THAT IT WILL 


4744 


ongio 


006300 








ABh 


RO 


; WORK FOR THE ERROR TABLE 


474f 


017S12 


006300 








ASL 


RO 
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4746 


017514 


006300 






ASL 


HO 




4747 


017516 


062700 


002122 




ADD 


«8ERRTBf RO 


jFQHM TABLE POINTER 


4748 


017522 


012037 


017532 




MOV 


(■R0) + r2$ 


~ ;PICKUP "ERROR MESSAGE" POINTER 


4749 


017526 


001404 






BEQ 


3$ 


;SKIP TYPEOUT IF NOT POINTER 


4750 


017530 


104401 






TYPE 




;TYPE THE "ERROR MESSAGE" 


4751 


017532 


000000 






.WORD 





1 "CARRIAGE RETURN" & LINE FEED" 


4752 


017534 


104401 


001213 




TYPE 


,8CRLF 


;PICKUP "DATA HEADER" POINTER 


4753 


017540 


032777 


004000 


161372 311 


BIT 


«SWllf @SWR 


jDUMp OUT ALL RK REGISTERS 


47 5 4 


017546 


001042 






BNE 


10$ 


; YES, BRANCH 


4755 


017550 


012037 


017560 




MOV 


CR0H» 4S 


;PICKUP "DATA HEADER" POINTER 


4756 


017554 


001412 






BEQ 


5$ 


;SKIP TYPEOUT IF 


4757 


017556 


104401 






TYPE 




jTYPE THE "DATA HEADER" 


4758 


017560 


000000 




411 


,WORO 





f "DATA HEADER" POINTER GOES HERE 


4759 


017562 


104401 


001213 




TYPE 


,$CRLF 


J "CARRIAGE RETURN" & LINE FEED" 


4760 


017566 


062700 


000002 




ADD 


#2,P0 


;FORM POINTER TO TERMINATOR 


4761 


017572 


005710 






TST 


(RO) 


; IS THE TERMINATOR 0? 


4762 


017574 


001017 






BNE 


9$ 


J IF NOT, BRANCH 


4763 


017576 


162700 


000002 




SUB 


»2,R0 


; YES, IT IS Os REPOINT TO "DATA" 


4764 














{GO TYPE OUT DATA AS USUAL 


4765 


017602 


01 1000 




SSI 


MOV 


{R0)#R0 


;PICKUP "DATA TABLE" POINTER 


4766 


Oi 7604 


001004 






BNE 


7S 


;G0 TYPE THE DATA 


4767 


01 7606 


012600 




6$S 


MOV 


(SP)+,RO 


; RESTORE RO 


4768 


017610 


104401 


001213 




TYPE 


,6CRLF 


; "CARRIAGE RETURN" & LINE FEED" 


4769 


017614 


000207 






RTS 


PC 


; RETURN 


4770 


017616 






7SS 








4771 


017616 


013046 






MOV 


§(RO)*,«CSP) 


jSAVE §(R0)+ FOR TYPEOUT 


4772 


017620 


104402 






TYPOC 




;G0 TYPE«"OCTAL ASCIKALL DIGITS) 


4773 


017 6 2 2 


005710 






TST 


(RO) 


; IS THERE ANOTHER NUMBER? 


4774 


017624 


001770 






BEQ 


6S 


J BR IF NO 


4775 


017626 


104401 


002110 




T'iPE 


# BLNKS2 




4776 


017632 


000771 






BP 


7$ 




4777 


17634 


004770 


000000 


9$: 


JSR 


PC,P(RO) 


;G0 TO THE SPECIAL ERROR 


47 78 














jDATA HANDLING SUBROUTINE 


4779 














; NOTE THAT THIS ROUTINE IS 


4780 














; THE ONE INDICATED IN THE 


4781 














;LAST WORD OF AN ERROR 


4782 














; ITEM IN THE ERROR TABLE 


4783 














; (STARTING AT $EPRTB) 


4784 


01 7640 


104401 






TYPE 






47R5 


01 7642 


001733 






MSG7 










137 46 


001116 




MOV 


SERPPC # " ( SF) 




4787 


017650 


104402 






TYPOC 






4788 


17 652 


000755 






BP 


6S 


;GD BACK, TO THE EXIT POINT 


4789 














;FDR 'ERRTYP' 


4790 
















4791 


017654 


004737 


017662 


lOSi 


JSR 


PC, DMPREG 




4792 


01 7660 


000752 






BR 


6S 




4793 
















4794 
















4795 
















4796 








f DMPREG 








4797 








f DUMPS 


OUT ALL 


RK REGISTERS 


WHEN SW 11 IS SET 


4799 
















4799 


017662 






DMPREG: 








4800 


017662 


104401 


017670 




TYPE 


,65S 


; 5 TYPE ASCIZ STRING 


4801 


017666 


00441 






BH 


64$ 


jlGET OVER THE ASCIZ 
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4302 








H65$i 


.ASCIZ 


<15><12>/ PC 


RKDS RKER RKCS RKWC RKBA 


4803 


017772 






64SI 








4904 


017 7 7 2 


01 3746 


001116 




MOV 


$ERRPC,'-(SP) 




4805 


017776 


104402 






TYPOC 






4806 


020000 


104401 


0021 10 




TYPE 


,BLNKS2 




4807 


020004 


010046 






MOV 


RO,-CSP) 




4808 


020006 


012700 


001452 




MOV 


»RKDS,RO 




4809 


020012 


01 3046 




lis 


MOV 


iCR03-5-,»CSP) 




4810 


020014 


104402 






TYPOC 






481 1 


020016 


104401 


0021 10 




TYPE 


,BLNKS2 




4812 


020022 


020027 


001466 




CMP 


RO, #RKDB 




4813 


020026 


003771 






BLE 


18 




4814 


020030 


012600 






MOV 


(SP)*,RO 




4815 


020032 


000207 






RTS 


PC 




4816 
















4817 
















4818 
















4819 
















4820 
















482 1 








aSBTTL 


CONVERT 


BINARY TO DECIMAL AND TYPE ROUTINE 


4822 
















4823 










4824 








j*THIS 


ROUTINE 


IS USED TO CHANGE 


A 16»BIT BINARY NUMBER TO A 5-DIGIT 


4825 








j»SIGNED DECIMAL (ASCII) NUMBER 


AND TYPE IT, DEPENDING ON WHETHER THE 


4826 








I^NUMBER IS POSITIVE OR NEGATIVE 


A SPACE OR A MINUS SIGN WILL BE TYPED 


4827 








t«BEFORE THE FIRST DIGIT OF THE 


NUMBER, LEADING ZEROS WILL ALWAYS BE 


4828 








|»REPLACED WITH 


SPACES, 




4829 








|*CALLl 








48 30 








l# 


MOV 


NUM^-^CSPJ 


; >PUT THE BINARY NUMBER ON THE STACK 


4831 










TYPDS 




; >G0 TO THE ROUTINE 


48 32 
















4833 


020034 






STYPDSl 








4834 


020034 


010046 






MOV 


RO,"CSP) 


J f PUSH RO ON STACK 


48 35 


020036 


010146 






MOV 


R1,-(SP) 


If PUSH Rl ON STACK 


48 36 


200 40 


010246 






mv 


R2,-(SP) 


; I PUSH R2 ON STACK 


4837 


020042 


010346 






MOV 


R3,-CSP5 


; fPUSH R3 ON STACK 


4638 


020044 


010S46 






MOV 




If PUSH R5 ON STACK 


4839 


020046 


012746 


020200 




MOV 


#20200, «CSP) 


f f SET BLANK SWITCH AND SIGN 


4840 


020052 


016605 


000020 




MOV 


20(SP3,R5 


If GET THE INPUT NUMBER 


4841 


020056 


100004 






BPL 


1$ 


; f BR IF INPUT IS POS, 


4842 


020060 


005405 






NEG 




IfMAKE THE BINARY NUMBER POS^ 


4843 


020062 


112766 


000055 000001 




MOVE 




; f MAKE THE ASCII NUMBER NEG, 


4844 


020070 


005000 




lis 


CLR 


RO 


f f ZERO THE CONSTANTS INDEX 


4845 


020072 


012703 


020250 




MOV 


«iDBLK,R3 


; 1 SETUP THE OUTPUT POINTER 


4846 


020076 


112723 


000040 




MOVE 


,(R35* 


15 SET THE FIRST CHARACTER TO A BLANK 


4847 


020102 


005002 




2IS 


CLR 


m 


IfCLEAB THE BCD NUMBER 


4848 


020104 


016001 


020240 




MOV 


$DTBL(R0),R1 


f f GET THE CONSTANT 


4849 


020110 


16010S 






SUB 


R1,R5 


f fFORM THIS BCD DIGIT 


4850 


020112 


002402 






BLT 


4$ 


f f BR IF DONE 


4851 


020114 


005202 






INC 


R2 


f f INCREASE THE BCD DIGIT BY % 


48S2 


020116 


000774 






BR 


38 




48S3 


020120 


OgOiOS 




411 


ADD 


R1,RS 


f f ADD BACK THE CONSTANT 


48S4 


020122 


005702 






TST 


R2 


f ICHECK IF BCD DIGITaO 


4653 


020124 


001002 






BNE 


5$ 


ft FALL THROUGH IF 


4856 


020126 


10S716 






TSfB 


(SP) 


f f STILL DOING LEADING O'S? 


4837 


020130 


100407 






BMI 


7$ 


If BR IF YES 



m^ii'^QZmimEf RK11«>RK0S DYNAMIC fEST mCHH 30(104S5 il'^JUL^tl 08l03 PAGE 92 
DZRKLEsPli aS^^aPR^"?? 12121 CONVERT BINARY fO DECIMAl, AND TYPE ROUTINE 



4938 
4SS9 
48S0 
4861 
4863 
4863 
1864 
48&S 
4866 
4867 
4e68 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4883 
4884 
4885 
488fe 
4887 
4888 
4899 
4890 
4891 
4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 



020132 
020134 
020116 
020144 
020iS0 
0201S4 
0201S6 
020160 
020164 
020166 
020170 
020172 
020174 
020176 
020200 
020206 
020210 
020212 
020214 
020216 
020220 
020222 
020226 
020234 
020236 
020240 
020242 
020244 
020246 
0202S0 



106316 
101003 
llSg@3 
0S2702 
0Sg702 
110223 
00S720 
020027 
00274S 
003002 
010S02 
000764 
1057.26 
J00003 
116663 
iOSOll 
01 26 OS 
012603 
012602 
012601 
012600 
104401 
01666® 
012616 
000002 
023420 
001750 
000144 
000012 
000004 



000001 
000060 
000040 



177777 



311 
7IS 



177777 177776 



0202SO 
000002 



hSLB 

BCC 

MOVi 

BIS 

BIS 

MOVB 

TST 

CMP 

BLT 

BGT 

MOV 

BR 

TSTB 

BPL 

MOVB 

CLRB 

MOV 

MOV 

MOV 

MOV 

MOV 

TYPE 

MOV 

MOV 

RTI 

IOOOO9 
1000^ 
100, 
10. 



sSBTTL TYPE ROUTINE 



SDTBLi 



C Bp} 


f IMSDI 






6$ 


nSf IF NO 








llYES»<«»SET THE SIGN 






# ^Qi R2 


IfMAKE THE BCD DIGIT ASCII 






IpnAAC. l£ A oPA(.e< IF NO" 


ALREADY A 


DIGIT 




9 B Qf!9 1^1178 ^ U Ik D II ^ l^tr Q TM 

lirUl 4HJ10 CnARACfbF IN 


TMc. OUTPUT 


BUFFER 


C RO ) ^ 


IfuUoT InCHsiricin r iNu 














2$ ' 


f Jv»U DU THE, RtAT DiwIT 






8$ 


f 1 VSrU TU C(A JLT 






R§ t R2 


f f u& X IMb LjoU 






6@ 


; ; GO CHANGE TO ASCII 






C SP3 + 


1 t WAS IMt LSD THe. P IKSX 


NON«»ZERO? 




91 


; fBP IF NO 








f }YE5"<»SET THE SIGN FOR 


TYPING 




C R3 5 


IjSEf THE TERMINATOR 






f SOI * . Rt? 


If POP STACK INTO RS 






CSP3*,R3 


nPOP STACK INTO P3 






CSPJ-s-j R2 


nPOP STACK INTO R2 






(SPHrRi 


If POP STACK INTO Rl 






CSP3*»R0 


MPOP STACK INTO RO 






jSDBLK 


If NOW TYPE THE NUMBER 






2(SP3,4CSP3 


n ADJUST THE STACK 






CSP)4>,CSP) 


n RETURN TO USER 







*R0UTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A BYTE, 
*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 



*N0TE1 I 
»N0TE2l 
»N0TE3J 

# 

«CALLJ 

»1) USING A 

* TYPE 



$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
8FILLC CONTAINS THE CHARACTER TO FILL AFTER. 



TRAP INSTRUCTION 
iMESADR 



; jMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 



TYPE 
MESADR 



4904 
















4905 
















4906 


020260 


105737 


001157 


STYPEf 


TSTB 


8TPFLG 


nIS THERE A TERMINAL? 


4907 


020264 


100002 






BPL 


iS 


;»BR IF YES 


4908 


020266 


000000 






HALT 




; )HALT HERE IF NO TERMINAL 


4909 


020270 


000407 






BR 


3S 


; ;LEAVE 


4910 


020272 


010046 




I8i 


MOV 


RO,«»CSP) 


5 J SAVE RO 


4911 


020274 


017600 


000002 




MOV 


32tSP) ,R0 


MGET address of ASCIZ STRING 


4912 


O2O3OO 


112046 




2f S 


MOVB 


CRO)+#"{SP) 


; ;PUSH CHARACTER TO BE TYPED ONTO STACK 


4913 


020302 


001005 






BNE 


41 


MBR IF XT ISN'T THE TERMINATOR 
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TST 


CSP)* 


; ) IF TERMINATOR POP IT OFF THE STACK 


60SI 


MOV 


(SP)+,RO 


M RESTORE RO 


3$f 


ADD 


#2,CSP5 


n ADJUST RETURN PC 




RTI 




n RETURN 


4Si 


CMPB 


»m, csp) 


ffBRANCH IF <HT> 




BEQ 








CMPB 


#CBLr* CSP3 


ff BRANCH IF NOT <CRLF> 




BNE 


5$ 






TST 


CSP)* 


1 f POP . <CR><LF> EQUIV 




TYPE 




; fTYPE A CR AND LF 




iCRLf 






CLRB 


SCHARCNT 


If CLEAR CHARACTER COUNT 




BR 


21 


IfQEl NEXT CHARACTER 


SSI 


JSR 


PCSTYPEC 


II GO TYPE THIS CHARACTER 




CMPB 


0FILLC? (SP)* 


;|IS IT TIME FOR FILLER CHARS*? 




BNE 


2$ 


If IF NO GO GET NEXT CHAR, 




MOV 


8NULL,«(SP) 


If GET # OF FILLER CHARS. NEEDED 








1 f AND THE NULL CHAR, 


m 


DECB 


l(SP) 


I iDOES A NULL NEED TO BE TYPED? 




BLT 


61 


1 iBR IF NO««GO POP THE NULL OFF OF STACK 




JSR 


PC,$TYPEC 


; |G0 TYPE A NULL 




DECB 


SCHARCNT 


I |D0 NOT COUNT AS A COUNT 




BR 


71 


IJLOOP 


p HORIZONTAL TAB 


PROCESSOR 




8if 


MOVB 


f (SP) 


; 1 REPLACE TAB WITH SPACE 


9li 


JSR 


PC,|fYPEC 


I 1 TYPE A SPACE 




BITS 


#7,$CHARCNf 


1 1 BRANCH IF NOT AT 




BNE 


91 


I 1 TAB STOP 




TST 


CSP5* 


If POP SPACE OFF STACK 




BR 


28 


IfGET NEXT CHARACTER 


$TYPECl 


TSTB 


iSTPS 


; fWAIT UNTIL PRINTER IS READY 
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4914 020304 005726 

4915 020306 012600 

4916 020310 062716 000002 

4917 020314 000002 

4918 020316 122716 OOOOll 

4919 020322 001430 

4920 020324 122716 000200 

4921 020330 001006 

4922 020332 005726 

4923 020334 104401 

4924 020336 001213 

4925 020340 10S037 020474 

4926 020344 000755 

4927 020346 004737 020430 

4928 020352 123726 0011S6 

4929 020356 OOIISO 

4930 020360 013746 001154 
4931 

4932 020364 103366 000001 

4933 020370 002770 

4934 020372 004737 020430 

4935 020376 10S337 020474 

4936 020402 000770 
4937 

4938 
4939 

4940 020404 112716 000040 

4941 020410 004737 020430 

4942 020414 132737 000007 020474 

4943 020422 001372 

4944 020424 005726 

4945 020426 000724 

4946 020430 10S777 160314 

4947 020434 100375 

4948 020436 116677 000002 ISOSOS 

4949 020444 122766 000015 000002 

4950 0204S2 001003 

4951 0204S4 10S037 020474 

4952 020460 000406 

4953 020462 122766 000012 000002 

4954 020470 001402 

4955 020472 103227 

4956 020474 000000 

4957 020476 000207 
49§8 

4959 
4960 
4961 
4962 
4963 
4964 
4965 
496S 
4967 
4968 
4959 



BPL STYPEC 

MOVB 2(SP)f @8TPB 

CMPB #CR»2{SP) 

BNE 1$ 

CLRB SCHARCNT 

BR $TYPEX 

lis CMPB l|LF«2CSP) 

BEQ 8TYPEX 

INCB (PC)* 

SCHARCNT: .WORD 

ITYPEXS RTS PC 



aSBTTL INTEGER MULTIPLY ROUTINE 



I iLOAD CHAR TO BE TYPED INTO DATA REG, 
I I IS CHARACTER A CARRIAGE RETURN? 
; iBPANCH IF NO 

I I YES«»CLEAP CHARACTER COUNT 

f f EXIT 

I lis CHARACTER A LINE FEED? 

I iBRANCH IF YES 

I iCOUNT THE CHARACTER 

I iCHARACTER COUNT STORAGE 



I^CALL 

f» MOV MULTIPLER,-(SP) 

|» MOV MULTIPLICAND, »(SP) 

|» JSR PC,§«$MULT 

!«• RETURN 11 PRODUCT IS ON THE STACK 
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4970 








1® STACK 


PRODUCT 




4971 














4972 








f ® TOP 


LSB'S 




4973 








f ^ 4 2 


MSB'S 




4974 














497S 


020500 






SMULTi 






4976 


020500 


010046 




MOV 


ROi^-CSP) 


f J PUSH RO ON STACK 


4977 


020502 


010146 




MOV 


R1,'«CSP? 


; iPUSH Rl ON STACK 


4978 


020504 


010246 




MOV 




nPUSH R2 ON STACK 


4979 


020506 


005046 




CLR 


«.CSP) 


fiCLEAR THE SIGN KEY 


4980 


020510 


016601 


000012 


MOV 


i2(SP3#Rl 


nSET THE MULTIPLICAND 


4981 


020514 


100002 




BPL 


11 


hBr if plus 


4982 


020516 


005216 




INC 


(SP3 


nSET THE SIGN KEY 


4983 


020520 


005401 




NEG 


Rl 


IjMAKE THE MULTIPLICAND POSTIVE 


4984 


020522 


016602 


000014 


iSi MOV 


i4CSP) »R2 


IjGET THE MULTIPLIER 


4985 


020526 


1 00002 




BPL 


2$ 


nBR IF PLUS 


498b 


020530 


005316 




DEC 


(BP) 


n UPDATE THE SIGN KEY 


4987 


020532 


00S402 




NCG 


m 


IjMAKE THE MULTIPLIER POSTIVE 


4988 


020534 


012746 


000021 


2$l MOV 




f f SET THE LOOP COUNT 


4999 


020540 


005000 




CLB 


RO 


; iSETUP FOR THE MULTIPLY LOOP 


4990 


02U542 


103001 




3$S BCC 


4S 


> >DON»T ADD IF MULTIPLICAND s 


4991 


020544 


060200 




ADO 


R2» RO 




4992 


020546 


006000 




4$S HOR 


RO 


M POSITION THE PARITIAL PRODUCT AND 


4993 


020550 


006001 




ROB 


Bl 


f?THE MULTIPLICAND 


4994 


020552 


005316 




DEC 


C5P3 


IfHAS ALL BITS OF THE MULTIPLICAND BEEN 


4995 


020554 


001372 




BNE 


33 


jfBR IF NO 


4996 


020556 


022616 




CMP 


CSP)*, (SP5 


f J SHOULD PRODUCT BE NEGATIVE? 


4997 


020560 


001403 




BEQ 


5$ 


If GO TO EXIT IF NO 


4998 


020562 


005400 




NEG 


RO 


1 1 YES"»'«SO MAKE IT SO 


4999 


020564 


00S401 




NCG 


Rl 




5000 


020566 


O05600 




SBC 


RO 




5001 


020570 


005726 




5$l TST 


CSP)4- 


; jCLEAR SIGN INFO, OFF OF STACK 


5002 


020572 


010066 


000012 


MOV 


BO, i2( SP) 


If PUT THE PRODUCT ON THE STACK (MSB'S) 


§01)3 


020576 


010166 


OOOOi 


MOV 


Rl t lO(SP) 


jiLSB'S 


5004 


020602 


012602 




MOV 


CSP)4-,R2 


?fPOP STACK INTO R2 


5005 


020604 


012601 




MOV 




f f POP STACK INTO Rl 


5006 


020606 


012600 




MOV 


CSP)*,R0 


nPOP STACK INTO RO 


5 07 


0206 i 


000207 




RTS 


PC 




5008 














5009 








gSBTTL TTY INPUT ROUTINE 




5010 














soil 








} f 


5012 








,ENABL LSB 






5<it3 


020612 


000000 




$TKCNT? ^WORD 





; jNUMBER OF ITEMS IN QUEUE 


5014 


020614 


000000 




STKOlNi .WORD 





J J If^PUT POINTER 


5 015 


20616 


000000 




ITKQOUTS .WORD 





;f OUTPUT POINTER 


5016 


2 0620 


000001 




$TKQSRTJ ,BLKB 


1 


? ?TTY KEYBOARD QUEUE 


50 17 




020621 




STKQENDs, 






501 P 




020622 




gEVEN 






5019 














5020 








f*TK INITIALIZE 


ROUTINE 




502S 








f^^THIS ROUTINE 


WILL INITIALIZE 


THE TTY KEYBOARD INPUT QUEUE 


5022 








;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOAPD INTERRUPT 


5023 








f 






50-2 4 








|*CALLl 






5025 








1* JSR 


PC, $TKINT 
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5026 
5U27 
502S 
5029 
5 3 U 
5031 
5032 
5031 
5034 
5035 
5036 
5037 
5036 
5039 
5040 
5041 
5042 
5043 
5044 
5045 
5046 
5047 
5048 
5049 
5050 
5 051 
5052 
5 05 3 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5 061 
5062 
5063 
5064 
5065 
5066 
5067 
506B 
5069 
5070 
5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
50@0 
50Pi 



2 0622 


005037 


020612 




STKINTl CLR 


STKCNT 


; jCLEAR COUNT OF ITEMS IN QUEUE 


020626 


012737 


020620 


020614 


MOV 


#STKOSRTr$TKQIN 


J f MOVE THE STARTING ADDRESS OF THE 


020634 


013737 


020614 


020616 


MOV 


$TKOIN,$TKQOUT 


; ; QUEUE INTO THE INPUT & OUTPUT POINTERS 


020642 


127 37 


020672 


000060 


MOV 


#STKSBV#f #TKVEC 


J f INITIALIZE THE KEYBOARD VECTOR 


020650 


012737 


000200 


000062 


MOV 


S200#§#TKVEC-l-2 


? > "BR" LEVEL 4 


020656 


005777 


160264 




TST 


§STKB 


; jCLEAR DONE FLAG 


020662 


012777 


000100 


160254 


MOV 


#100,§$TKS 


; jENABLE TTY KEYBOARD INTERRUPT 


020^70 


000207 






RTS 


PC 


; jRETURN TO CALLER 



>»TK SERVICE ROUTINE 

|*THIS ROUTINE WILL SERVICE THE 
|#BY READING THE CHARACTER FROM 
f*IT IN THE QUEUEs 
I 



TTY KEYBOARD INTERRUPT 

THE INPUT BUFFER AND PUTTING 



020672 


117746 


1602S0 




ITKSRVI 


MOVB 


§$TKB,«'(SP) 


?t PICKUP THE CHARACTER 


020676 


042716 


177600 






BIC 


#''C177,CSP5 


; ; STRIP THE JUNK 


2 7 2 


021627 


000007 






CMP 


CSP) ,#7 


J lis IT A CONTROL G? 


020706 


001004 








BNE 


2$ 


nBRANCH IF NO 


020710 


022737 


000176 


OOIHO 




CMP 


tSWPEGffSVsR 


; jIS SOFT-SWR SELECTED? 


020716 


001500 








BEQ 


6$ 


rfGO TO Sm CHANGE 


020720 








211s 








020720 


022737 


000001 


020612 




CMP 


11, STKCNT 


If IS THE QUEUE FULL? 


020726 


001004 








BNE 


3S 


; jBRANCH IF NO 


020730 


1 04401 


001206 






TYPE 


ySBELL 


1 f RING THE TTY BELL 


020734 


005726 








TST 


CSP)* 


ffCLEAN CHARACTER OFF OF STACK 


020736 


000451 








BR 


SS 


f lEXIT 


020740 


021627 


000023 






CMP 


CSP)##23 


Ills IT A CONTROL-S? 


020744 


001021 








BNE 


328 


nSBANCH IF NO 


020746 


005077 


160172 






CLR 


§$TKS 


; }DISABLE TTY KEYBOARD INTERRUPTS 


020752 


005726 








TST 




nCLEAN CHAR OFF STACK 


020754 


105777 


160164 




31$| 


TSTB 


§$TKS 


nWAIT FOR A CHAR 


020760 


100375 








BPL 


31S 


mLOOP until ITS THERE 


020762 


1 17746 


160160 






MOVB 


iSTKBj-CSP3 


jjGET THE CHARACTER 


020766 


042716 


177600 






BIC 


#'^C177» CSP) 


nMAKE IT 7'«BIT ASCII 


020772 


022627 


000021 






CMP 


CSP3*,#21 


If IS IT A CONTROL^'Q? 


020776 


001366 








BNE 


31S 


nBRANCH IF NO 


021 000 


012777 


000100 


160136 




MOV 


#i00,i$TKS 


nHEENABLE TTY KEYBOARD INTERRUPTS 


021006 


000002 








RTI 




;> RETURN 


021010 


00523? 


020612 




32$s 


INC 


STKCNT 


nCOUNT THIS CHARACTER 


021014 


021627 


000140 






CMP 


CSP3,#140 


nIS IT UPPER CASE? 


021020 


002405 








BLT 


4$ 


ffBPANCH IF YES 


021022 


021627 


00017S 






CMP 


CSP3,#i75 


Ills IT A SPECIAL CHAR? 


021026 


003002 








BGT 


4@ 


IjBRANCH IF YES 


021030 


042716 


000040 






BIC 


#40y CSP3 


nMAKE IT UPPER CASE 


021034 


U2677 


177554 




4$l 


MOVB 


CSP3*>@$TKQIN 


; J AND PUT IT IN QUEUE 


021040 


005237 


020614 






INC 


IIKQIN 


; lUPDATE THE POINTER 


021044 


023727 


020614 


020621 




CMP 


$TK0IN,#$TKQEND 


nGO OFF THE END? 


021052 


001003 








BME 


51 


?i BRANCH IF NO 


021054 


012737 


020620 


020614 




MOV 


#$fKQSBT,8TKQIN 


; » RESET THE POINTER 


021062 


000002 






Sli 


RTI 




n RETURN 



l*SOFTWARE SWITCH REGISTER CHANGE BOUTINEs 
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5082 








508 3 








§084 








5085 


021064 


02273? 


000176 


5086 


02107 2 


001104 




5087 


02i074 


105777 


160044 


5088 


021 100' 


100101 




5089 


021102 


1 1 7746 


160040 


5090 


021 106 


042716 


177600 


5091 


021112 


02S627 


000007 


5092 


021 i J 6 


001300 




5093 








5094 








5095 








5096 








5097 








5098 








5099 


021120 


123727 


001134 


5100 


021126 


001674 




5101 


021130 


005726 




5102 


0? 1 1 32 


0047 37 


020622 


5103 


021 136 


005077 


160002 


S 1 04 


021142 


112737 


00000 1 


5105 








5106 


021 150 


104401 


021727 


5107 


021154 


i 0440 1 


021734 


5108 


021160 


013746 


000176 


§109 


021 l64 


104402 




5110 


021166 


1 04401 


021745 


5111 


021172 


005045 




5112 


021174 


005046 




5113 


021176 


i 05777 


157742 


5114 


021202 


100375 




5115 








5 H 6 


021204 


117746 


157736 


5117 


021210 


042716 


177600 


5118 








5119 








5120 








5121 


021214 


021627 


000025 


5122 


021220 


001005 




5123 


021222 


104401 


021722 


5124 


021226 


062706 


000006 


5125 


021232 


000757 




5 1 26 








5 1 37 








5128 


021234 


021627 


000015 


5129 


021240 


001022 




5130 


021242 


005766 


000004 


S 1 31 


021246 


001403 










A A A A A '5 
U U U U Z 


5113 


021256 


062706 


000006 


5134 


021262 


104401 


001213 


5135 


021266 


123727 


001135 


5136 


021274 


001003 




5137 


0212?6 


012777 


000100 



001140 



f *ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL 
f *SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
f «CALL WHEN OPERATING IN TTY INTERRUPT MODE. 



$CKSWR 1 CMP 


# SWREGf 




1 JJLO i.n& 0\Jw i^Orig%, QCiijZtXa ls*U 


BNE 


15$ 




; f EXIT IF NOT 


TSTB 






wis A CHAR WAITING? 


BPL 


158 




;;IF NOT, EXIT 


MQVB 


ilTKB*'^ 


(SP) 


myes 


BIC 


#"cn7» 


(SP) 


; jMAKE IT 7»BIT ASCII 


CMP 


CSP),#7 




?fIS IT A CONTROL-G? 


BNE 


21 




fjIF NOT, PUT IT IN THE TTY QUEUE 
ffAND EXIT 



f *CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
|»ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF 
>«CONTROL-"G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED, 

6$l 



001135 



CMPB 


$AUTOB, # 1 


; ; ARE WE RUNNING IN AUTO«»MODE? 


BEQ 


2S 


1 f BRANCH IF YES 


TST 


CSP5* 


; } CLEAR CONTROL«G OFF STACK 


JSP 


PC , 8 TKINT 


J J FLUSH THE TTY INPUT QUEUE 






1 ; UXoAoLtEi ill ivfc I dUAHU In I tHKUf J. & 


MOVB 


«1,$INTAG 


; JSET INTERRUPT MODE INDICATOR 


TYPE 


,8CNTLG 


; JECHO THE CONTROL-G i'C) 


TYPE 


,$MSWR 


; J TYPE CURRENT CONTENTS 


MOV 


SWREG,»(SP) 


; jSAVE SWPEG FOR TYPEOUT 


TYPOC 




; jGO TYPE--OCTAL ASCIK ALL DIGITS) 


TYPE 


, 8MNEW 


; fPROMPT FOR NEW SWR 


CLR 


-CSPJ 


; ;CLEAR COUNTER 


CLP 


»(SP) 


; jTHE NEW SWR 


TSTB 


iSTKS 


; jCHAP THERE? 


BPL 


7$ 


J jIF NOT TRY AGAIN 


MOVB 


9STKB,«(SP) 


; jPICK UP CHAR 


BIC 


t™C177, CSP) 


MMAKE IT 7-BIT ASCII 


CMP 


(SP),»25 


nXS IT A CQNTROL-U? 


BME 


lOS 


; f BRANCH IF NOT 


TYPE 


,8CNTLU 


J J YES, ECHO CONTROL-U C"U) 


ADD 


86, SP 


; t IGNORE PREVIOUS INPUT 


BR 


19s 


; jLET'S TRY IT AGAIN 



10$| 



US: 

14S? 



000001 
157640 



CMP 

BNE 

TST 

BEQ 

MOV 

ADD 

TYPE 

CMPB 

BNE 

MOV 



(SP),#15 
16$ 
4(SP) 
11$ 

2CSP5 ,?S>^B 
#6,SP 
,$CRLF 
SINTAG, #1 

15S 

»100,PSTKS 



pis IT A <CR>? 
jBRANCH IF NO 

; YES, IS IT THE FIRST CHAR? 
»BRANCH IF YES 
JSAVE NEW SWR 
f CLEAR UP STACK 
jECHO <CR> AND <LF> 
>RE-ENABLE TTY KPD INTERRUPTS? 
jBRANCH IF NOT 
; ;RE-ENABLE TTY KBD INTERRUPTS 
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5138 


021 304 


5139 


021306 


5140 


021312 


5141 


021316 


5142 


021320 


5143 


021324 


51 44 


021326 


5145 


021332 


5146 


021336 


5147 


021340 


5148 


021342 


5149 


021344 


5150 


021346 


5151 


021352 


5152 


021356 


5153 


021360 


5154 


021 364 


5155 




5156 




5157 




5158 




S159 




5160 




5161 




5162 




5163 




5164 




5165 




5166 


021366 


5167 


02! 370 


5168 


021376 


5169 


021402 


5170 


021404 


5171 


021410 


5172 


021412 


5173 


021412 


S174 


021416 


S17S 


021420 


5176 


021424 


5177 


021432 


5178 


021436 


5179 


021444 


5180 


021446 


5181 


021454 


5182 




5183 




5184 




sies 




5186 




5187 




5188 




3189 


0214S6 


S190 


021460 


5191 


021462 


5192 


021466 


r3l93 


021472 



000002 
004737 
021627 
O02420 
021627 
003015 
042726 
005766 
001403 
006316 
006316 
006316 
005266 
056616 
000707 
104401 
000720 



01 1646 
016666 
00S066 
005046 
012746 
000002 

005737 
00177S 
005337 
117766 
00S237 
023727 
001003 
012737 
000002 



020430 
000060 



000060 
000002 



000002 

177776 



000004 
000004 



020612 

020S12 

177166 
030Si6 
030S1S 



020621 



020620 020616 



010346 
00S046 

012703 021712 
022703 021722 
101455 
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15$S 


RTI 




; J RETURN 


16$: 


JSR 


PC,STYPEC 


; J ECHO CHAR 




CMP 


CSP),#60 


J f CHAR < 0? 




BLT 


18S 


? jBRANCH IF YES 




CMP 


(SP),867 


J f CHAR > 7? 




BGT 


isg 


fjBRANCH IF YES 




BIC 


#60, (SP)4- 


; ; STRIP-OFF ASCII 




TST 


2(SP) 


Mis THIS THE FIRST CHAR 




BEQ 


17$ 


;^>BRANCH IF YES 




ASL 


(SP) 


; J NO, SHIFT PRESENT 




ASL 


(SP) 


jf CHAR OVER TO MAKE 




ASL 


csp) 


II ROOM FOR NEW ONE, 


i7$i 


INC 


2(SP) 


? JKEEP COUNT OF CHAP 




BIS 


-2{SP), CSP) 


; jSET IN NEW CHAR 




BR 


7i 


; ;GET THE NEXT ONE 


I8$i 


TYPE 


,SQUES 


J f TYPE ?<CR><LF> 




BR 


20$ 


r f SIMULATE CONTROL-U 


.DSABL 


LSB 








>*THIS 


ROUTINE 


WILL INPUT A 


SINGLE CHARACTER FROM THE TTY 


>»CALLj 








l# 


RDCHR 




; f GET A CHARACTER FROM THE QUEUE 


j# 


RETURN 


HERE 


- ; ;CHARACTER IS ON THE STACK 


t 






; jWITH PARITY BIT STRIPPED OFF 


SRDCHRi 


MOV 


CSP)?«CSP3 


f f PUSH DOWN THE PC AND 




MOV 


4(SP),2(SP) 


5 >THE PS 




CLR 


4CSP) 


IJGET READY FOR A CHARACTER 




CLR 


«CSP3 


jlPUT NEW PS ON STACK 




MOV 


#64S,'-CSP3 


; IPUT NEW PC ON STACK 




RTI 




ffPOP NEW PC AND PS 


641s 








i$i 


TST 


STKCNf 


J f WAIT ON A CHARACTER 




BEQ 


11 






DEC 


$TKCNT 


UDECREMENT THE COUNTER 




MOVB 


g5TXQ0UT,4(SP) ; :GET ONE CHARACTER 




INC 


8TK00UT 


; f UPDATE THE POINTER 




CMP 


STKQOUT, #STKQEND > ; DID IT GO OFF OF THE END? 




BNE 


2$ 


If BRANCH IF NO 




MOV 


#$TKQSRT,3TK00UT M RESET THE POINTER 


2Si 


RTI 




1 1 RETURN 




|*THIS 


ROUTINE 


WILL INPUT A 


STRING FROM THE TTY 


f^^CALLs 








5# 


RDLIN 




; J INPUT A STRING FROM THE TTY 




RETURN 


HERE 


1 lAODRESS OF FIRST CHARACTER WILL 








; ITERMINATOR WILL BE A BYTE OF ALL 


IRDLINI 


MOV 


R3,™CSP) 


nSAVE R3 




CLR 


-(SP3 


If CLEAR THE RUBOUT KEY 


ill 


MOV 


#8TTYIN,R3 


1 |GET ADDRESS 


2Si 


CMP 


#STT¥1N^89, 


R3 nBUFFER FULL? 




BLOS 


41 


I IBR IF YES 
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519 4 


02 1 47 4 


104410 








RDC HR 




J } vjU KCi AU UNe, v«MRACTe.P r HUM I r.i. ; 1 1 


5195 


021476 


1 1 26 1 3 








MOVB 


I SP ; ■? f I K J J 




5196 


02 1 500 


122713 


0001 77 




1 0$ I 




8177» {Hi} 


t $ 10 1 1 A KUBUUX 


5197 


021504 


001022 










5$ 


5 ? BR IF NO 


5198 


021506 


005716 








TST 


C SP5 


P|1S i n X 5 inbi r 1 no 1 RUoUU 1 i 


5199 


021510 


001007 








BNE 


6S 


; > BH If NU 


5200 


21512 


1127 37 


000134 


021710 






# *\* 9S 


pflIrE A ISALK oL Aori 


S201 


021520 


104401 


021710 






f xPE 


t 9$ 




5202 


021524 


012716 


177777 






MOV 


#«»1 » C SP) 


pfSET THE RUBOUT KEY 


5203 


021530 


005303 






6$ 1 


DEC 


R3 


; J BACKUP BY ONE 


5204 


021532 


020327 


021712 






CMP 


R3# iSTTYIN 


f 1 STACK EMPTY? 


5205 


215 36 


103434 










5S 


ft A T Vfi* G 

f f oH ir Ifi>S 


5206 


021540 


111337 


0217 10 






MOVB 


C H3 ) 9$ 


? J SETUP TO TYPEOUT THE DELETED CHARj 


5207 


021544 


104401 


021710 






TYPE 


i9$ 


f J GO TYPE 


5208 


021550 


000746 








BR 


2$ 


; f GO READ ANOTHER CHAR ^ 


5209 


021552 


005716 






5 $ : 


TST 


( SP3 


f f HUdUuT tvs.1 5tT r 


5210 


"21554 


001406 








BEO 


78 


jfBR IF NO 


521 1 


21556 


112737 


0001 34 


021710 




MOVB 


# * S » 9$ 


f J TYPE A BACK SLASH 


5212 


21564 


104401 


021710 








y 9$ 




52 1 3 


021570 


005016 








CLP 


( SP) 


f f CLEAR THE RUBOUT KEY 


5214 


02157? 


122713 


000025 




7 S i 




#25 » CP3 ) 


i i lo LMAKAU lfi.R A CTRL U ? 


5215 


021576 


001003 










gg 


1 J dH I r NU 


5 216 


021600 


104401 


021722 






TYPE 




t J IX Ft, A LUWrRUL U " 


5217 


021604 


000726 










i $ 


J } l»U oiARX U VbR 


5218 


021606 


1 22713 


000022 




8$ 1 


CMPB 


#22» ( R3 ) 


; ; I S CHARACTER A " ''P " ? 


5219 


021612 


001011 








BNE 


3S 


} JorANv-M i. r NU 


5220 


21614 


105013 








CLRB 


( R3 5 


JfLij&AH I nt LHARACrtR 


5221 


21616 


104401 


001213 








! SCBLF 


; J 1 X Ft A LH " & " Lr 


5222 


216 2 2 


104401 


021712 








f S TTYI N 


; ; X X Ft. Tnt- 1 N PU i STKiNCj 


5223 


021626 


0007 1 7 








BR 


2$ 


««r'n tST^I^fflD ftftlflTUETD fURPTST'D 


5224 


02 1630 


104401 


001212 




4S 1 


TYPE 


f SQUES 


' } I ire. A ? 


§225 


021634 


000712 








BP 


1 $ 


; ;CLEAR THE BUFFER AND LOOP 


522fe 


021636 


1 1 1337 


021710 




3S t 


MOVB 


{R3) f9§ 


J f ECHO THE CHARACTER 


5227 


021642 


1 04401 


021710 






TYPE 


f9$ 




5228 


021646 


122723 


000015 






CMPB 


8 1 5 # ( R3 ) + 


; } CHEC K FOR RETURN 


5229 


021652 


001305 








BNE 


2S 


; f LOOP IF NOT RETURN 


5230 


2165 4 


1 05063 


177777 






CLRB 


"ICRS) 


; ; CLEAR RETURN ( THE 15) 


5231 


021660 


1 04401 


001214 






TYPE 


1 SLF 


; > TYPE A LINE FEED 


5232 


021664 


05 7 26 








TST 


( SP) + 


ff CLEAN RUBOUT KEY FROM THE STACK 


5233 


021 666 


0126 3 








MOV 


C SP) 4-* R3 


; t RESTORE R3 


5234 


021670 


011646 








HOV 


CSP).^CSP) 


; f ADJUST THE STACK AND PUT ADDRESS OF 


5235 


021672 


01 6666 


000004 


000002 




MOV 


4{SP)*2CSP) 


; J FIRST ASCII CHARACTER ON IT 


52 35 


021700 


012766 


021712 


000 004 




MOV 


« S TTYI N / 4 ( SP ) 




52 37 


2 I 7 6 


000002 








RTI 




; ; RETURN 


5238 


021710 


000 






9$ f 







; f STORAGE FOR ASC 1 1 CHAR , TO TYPE 


5 2 3 9 


021711 


000 








.BYTE 





1 f 1 1 HM 1 N A iUH 


5 2 40 


217 12 


000010 






$ T T y I N t 


« BLKB 


S e 


; ; RESERVE 8 BYTES FUR TT Y INPUT 


5241 


217 2 2 


05 25 36 


005015 


000 


guNl tiU I 




/"U/<15>^12> 


J f cUN L Hull U " 


5242 


217 27 


136 


006507 


OOOOI2 


$CNTLG ! 


a ASCIZ 


/'*G/<15><1 2> 


} 1 CONTROL " G" 


5243 


021734 


005015 


053523 


020122 


$ M S W R 1 


, A SC I Z 


<i 5X1 2 > / S W R 


" / 






2 007 5 














5245 


021745 


040 


047040 


053505 


SMNEWi 


.ASCIZ 


/ NEW 5s / 




5246 


021752 


036440 


000040 












5247 


















5248 










^SBTTL 


READ AN 


OCTAL NUMBER 


FROM THE TTY 


5249 
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READ AN OCTAL NUMBER FROM THE TTY 



5251 








j*THIS 


ROUTINE 


WILL READ AN OCTAL ( ASCII) NUMBER FROM THE TTY AND 


5252 








l»CHANGE IT TO 


BINARY^ 




5253 








;»CALLl 








5254 








J* 


RDOCT 




llBEAD AN OCTAL NUMBER 


5255 










RETURN 


HERE 


J jLOW ORDER BITS ARE ON TOP OF THE 


5256 














jfHIGH ORDER BITS APE IN SHIOCT 


5257 
















5258 


021756 


011646 




SRDOCTi 


MOV 


(SP)y-CSP) 


} JPROVIDE SPACE FOR THE 


5259 


217 6 


016666 


000004 


000002 


MOV 


4(SP),2CSP) 


? ? INPUT NUMBER 


5260 


021766 


01 0046 






HOV 


ROy^'CSP) 


; ;PUSH RO ON STACK 


5261 


021770 


010146 






MOV 


Rl ,«CSP) 


? J PUSH Rl ON STACK 


5262 


021772 


010246 






MOV 


R2f-CSP) 


; J PUSH R2 ON STACK 


5263 


021774 


104411 




18S 


POLIN 




; JREAD AN ASCIZ LINE 


5264 


021776 


012600 






MOV 


(SP)+,R0 


; IGET ADDRESS OF 1ST CHARACTER 


5265 


022000 


005001 






CLR 


Pi 


J jCLEAR DATA WORD 


5266 


022002 


005002 






CLR 


R2 




5267 


022004 


1 12046 




2Sl 


MOVB 


CR0)*»««CSP} 


; ;PICKUP THIS CHARACTER 


5268 


022006 


001412 






BEQ 


3$ 


; >IF ZERO GET OUT 


5269 


022010 


006301 






ASL 


Rl 


? f *2 


5270 


022012 


006102 






ROL 


B2 




5271 


022014 


006301 






ASL 


Bl 


f 1*4 


5?72 


022016 


006102 






ROL 


R2 




5273 


022020 


006301 






ASL 


Rl 


? 1*8 


5274 


022022 


006102 






ROL 


R2 




5275 


O22024 


042716 


177770 




BIC 


#''C7HSP) 


; J STRIP THE ASCII JUNK 


5276 


022030 


062601 






ADD 


CSP)4-#Hi 


If ADD IN THIS DIGIT 


5277 


022032 


000764 






BP 


2S 


? fLOOP 


5278 


022034 


005726 




3Sf 


TST 




llCLEAN TERMINATOR FROM STACK 


5279 


022036 


010166 


000012 




MOV 


Riascsp) 


msave the result 


5280 


022042 


010237 


0220S6 




MOV 


R2,$HI0CT 




528 1 


022046 


012602 






MOV 


(SP)«i»,R2 


J ;POP stack into R2 


5282 


022050 


012601 






MOV 




nPOP stack INTO Fi 


52e3 


022052 


012600 






MOV 


CSP)+,R0 


; jPOP STACK INTO PO 


5284 


022054 


000002 






RTI 




; > RETURN 


5285 


022056 


000000 




SHIOCT: 


,WORD 





nHIGH ORDER BITS GO HERE 


5286 
















5287 








gSBTTL 


BINARY 


TO OCTAL (ASCII) 


AND TYPE 



5288 
5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5298 
5299 
5300 
S301 
5302 
5303 
5304 
5305 



j*THIS POUTIME IS USED TO CHANGE A 16-BIl BINARY NUMBER TO A 6=«DIGIT 
>»OCTAL (ASCII) NUMBER AND TYPE IT, 

>»$TYPOS»-«ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

I^CALLl 

NUM,-(SP) ; I NUMBER TO BE TYPED 

; {CALL FOR TYPEOUT 
N mNsI TO 6 FOR NUMBER OF DIGITS TO TYPE 



MOV 
TYPOS 

sBYTS 
.BYTE 



M 



IjMsi OR 

lllsTYPE LEADING ZEROS 
nOaSUPPRESS LEADING ZEROS 



y*$TYPON«»«.»ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

f *STYPOS OR $TYPOC 

f*CALL8 

}« MOV NUMr^(SP) ^NUMBER TO BE TYPED 

l# TYPON ; fCALL FOR TYPEOUT 



5306 










It 








1307 










tnwoc^'^^mm ntm rop typeout of a is bit number 


5308 


















S309 














NUM.®? SPl 


1 J NUMBER TO BE TYPED 


§310 










1 * 


T¥POC 






§311 


















§312 


022060 


01764S 


000000 




gf YPOSl 


MOV 


®^ .ifflf SPl 


f} PICKUP THE MODE 


5313 


022064 


1 1@637 


000001 


022303 




MOVB 


1 ( gp) , $0f iIjL 


J ; LOAD ZERO F ILL SWITCH 


5314 


022o72 


1 12S37 


02230S 






MOVB 


C SP3.*# |0M0DE*1 


jfNUMBER OF DIGITS TO TYPE 


5315 


022o76 


OS271S 


000002 






ADD 


#tj CSP5 


J 1 ADJUST RETURN ADDRESS 


5316 


022102 


000406 








BR 


STYPON 




S3l7 


022104 


1 12737 


ooooos 


022303 




MOVB 


8 1.8 QflLli 

1? & g %Jt AiJSJ 




S318 


022i 12 


i 12737 


000006 


02230S 




MOVB 




JfSET FOR SZX(6 } DIGITS 


5319 


022120 


1 1273? 


000005 


022302 


|f¥PONl 


MOVB 


#Sj socnt 


If SET THE ITERATION COUNT 


§320 


022126 


010346 








MOV 




1 1 SAVE R3 


5321 


2 2 1 3 


1 0446 








MOV 


R4; «»CSP) 


; ; SAVE R4 


5322 


022132 


0i0§46 








MOV 




• 1 SAVE R5 


5 3?3 


022134 


1 1 3704 


022305 






MOVB 


SOMODE^'i f R4 


J?GET THE NUMBER OF DIGITS fO TYPE 


5324 


022140 


005404 








NEG 


R4 




S325 


022142 


062704 


OOOOOS 






ADD 


$6; P4 


IJSUBTRACT IT FOR MAXb ALLOWED 


5326 


022146 


1 10437 


022304 






MOVB 


P4j SOMODE 


If SAVE IT FOR USE 


5327 


022lS2 


1 ! 3704 


022303 






MOVB 


IOFIXjL; R4 


f f GET THE ZERO FILL SWITCH 


5328 


0221S6 


0I660S 


000012 






MOV 




; ) PICKUP THE INPUT NUMBER 


5329 


022 1 62 


001003 








CLF 


B3 


% ) CLE AR THE OUTPUT WORD 


S330 


022lS4 


006105 






III 


ROL 


B5 


> J ROTATE MSB INTO "C " 


5 331 


022lS6 


000404 










3S 


« t fin nn msr 


5332 


O22l70 


006105 






211 


ROL 


F5 


'fFORM THIS DIGIT 


5333 


22 1 7 2 


006105 








ROL 


R5 




5 3 34 


02217 4 


006105 








ROL 


RS 




S335 


022176 


1 0S03 








MOV 


BS «^ 3 




5336 


022200 


006103 






3 1 1 


poll 


R3 


ffGET LSB OF THIS DIGIT 


5337 


022202 


105337 


022304 






DECB 


g omode 


.•TYPE" THIS DTGTT? 


5338 


022206 


100016 








BPL 


7S 


? f BR IF NO 


5 3 39 


022210 


042703 


177770 






BIC 


# 177770» R3 


• ; GET BID OF JUNK 


5340 


022214 


001002 








BNE 


4$ 


• J TEST FOR 


5341 


022216 


005704 








TST 


R4 


• J SUPPRESS THI S ? 


5342 


022220 


001403 








BEQ 


S$ 


f f BR IF YES 


5343 


022222 


005204 






4Sl 


INC 


R4 


; > DON'T SUPPRESS ANYMORE O'S 


5344 


022224 


0S2703 


000060 






BIS 


#'0f R3 


; JMAKE THIS DIGIT ASCII 


5345 


.022230 


0S2703 


000040 




gg 5 


BIS 


# * * R3 


; J MAKE ASC 1 1 IF NOT ALREADY 


5346 


022234 


110337 


022300 






MOVB 


R3 ji 8S 


J 5 SAVE FOR TYPING 


5347 


022240 


104401 


022300 






TYPE 




fjGO TYPE THIS DIGIT 


5348 


022244 


105337 


022302 




7 S g 


DECB 


SOCNT 


1 J COUNT BY 1 


534^ 


022250 


003347 








BGT 


21 


j|BP IF MURE TO DO 


5350 


022252 


002402 










6$ 




5 351 


022354 


005 204 








I NC 


R4 


J f INSURE LAST DIGIT ISN*T A BLANK 


5352 


022256 


000744 








BP 


2$ 




5353 


02 22^0 


012605 






61 s 


MOV 


(SP) t,R5 


J f RESTORE R5 


535 4 


022262 


012604 








MOV 


(SP3-5-^R4 


; » RESTORE R4 


5335 


022264 


012603 








MOV 


CSP3-4-?R3 


f f RESTORE R3 


5356 


022266 


01 6666 


000002 


000004 




MOV 


2CSP)#4CSP) 


fiSET THE STACK FOR RETURNING 


535? 


022274 


012616 








MOV 


CSP)*, CSP) 




535B 


022276 


000002 








RTI 




J 1 RETURN 


5359 


022300 


000 






8SS 


,8YTE 





STORAGE FOR ASCII DIGIT 


5360 


022301 


000 








.BYTE 





J f TERMINATOR FOR TYPE ROUTINE 


5361 


022302 


000 






$OCNTs 


.BYTE 





; f OCTAL DIGIT COUNTER 
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5362 


022303 


000 






SOFILLS 


sBYTE 





ffZERO FILL SWITCH 


5363 


022304 


000000 






SOMODEl 


^WORD 





ff NUMBER OF DIGITS TO TYPE 


5364 


















5365 


















5366 












,SBTTL 


TYPDSS «- TYPE DECIMAL? LEADING ZEROES SUPPRESSED 


5367 










pTYPDSS 








5368 










jROUTINE FOR TYPING OUT DECIMAL 


NUMBERS, LEADING O'S ARE SUPPRESSED 


5369 










|THE NUMBER IS 


LEFT JUSTIFIED, 


MOTE THE 16 BIT BINARY NUMBER SHOULD 


5370 










fBE POSITIVE (BIT 15s 03s 




5371 










fCALLi 


MOV 


NUMBER, -CSP) 


''?PUT BINARY NUMBER ON STACK 


5372 










f 


TYPDSS 




;G0 TYPE DECIMAL 


5373 


















5374 


022306 


016637 


000004 


022346 


TYPDESS 


MOV 


4(SP),iS 


f GET THE NUMBER 


5373 


022314 


012746 


022346 






MOV 


»1$*«'(SP3 


?PUT PTR ON THE STACK 


5376 


022320 


004737 


022506 






JSR 


PC,§#$DB2D 


;G0 CONVERT BINARY NO, TO 


5377 
















J ASCII STRING 


S378 


022324 


004737 


022352 






JSP 


PC,?#$SUPBS 


fGO TYPE OUT DECIMAL STRING 


5379 
















;SUPRESING LEADING 0*S 


S380 


022330 


016666 


000002 


000004 




MOV 


2CSP3i4(SP} 


> ADJUST RETURN 


53S1 


022336 


01 1666 


000002 






MOV 


(SP),2CSP) 


; ADJUST RETURN ADPES 


5382 


022342 


005726 








TST 


{SPJ-S- 


fPOP STACK 


S3®3 


022344 


000002 








PTI 




? RETURN 


5384 


















5385 


02234S 


000000 


000000 




111 


.WORD 


0,0 




5386 


















5387 


















5388 










sSBTTL 


TYPE NUMERICAL ASCIZ STRING "SUPPRESS LEADING ZEROS 


5389 


















5390 












5391 










^«THIS 


FOUTIME 


IS USED fO TYPE 


AN ASCIZ NUMBER SUPPRESSING THE 


5392 










f^LEADlNG NUMBERS^ 




5393 










I^CALL 








5394 










l# 


MOV 


#NUMADB,=»CSP) 


?f FIRST ADDRESS OF ASCIZ STRING 


5395 












JSR 


PC,@#$SUPRS 




5396 


















5397 


















5398 


022352 


010046 






iSUPHSi 


MOV 


H0,-CSP) 


; jSAVE RO 


5399 


022354 


016600 


000004 






MOV 


4CSP)jB0 


; IPICKUP THE POINTER 


5400 


022360 


105710 






111 


TSTB 


CR05 


; jTERMINATEOR? 


5401 


022362 


001403 








BEQ 


21 


nBB IF YES 


5402 


022364 


122720 


000060 






CMPB 


l^oaRO)-!- 


IflS THIS AN ASCII "0" ? 


5403 


022370 


001773 








BEQ 


1$ 


jfBR IF YES 


S404 


022372 


005300 






2$S 


DEC 


H0 


nBACKUP BY "1" 


§405 


022374 


010037 


022402 






MOV 


R0,3| 


; (SAVE FOR TYPING 


S406 


022400 


104401 








TYPE 




; )G0 TYPE 


§407 


022402 


000000 






IIS 







nASCIZ POINTER GOES HERE 


§408 


022404 


012600 








MOV 


CSPJ'S'jRO 


; J RESTORE RO 


5409 


022406 


012616 








MOV 


CSP)*» CSP3 


M RESTORE THE STACK 


5410 


022410 


000207 








RTS 


PC 


> f RETURN 


S4U 


















5412 










^SBTTL 


SAVE AMD RESTORE R0»»R5 


ROUTINES 


5413 


















3414 












§415 










|#SAVE 








S4I6 










I^CALLl 








3417 










1® 


SAVREG 
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§4!8 








j*UPON RETURN FROM SSAVREG THE STACK WILL 


LOOK LIKE8 


5419 








1 ^ 










5420 








j«TOP®'«»«»(*16 3 










5421 


















5422 


















5423 


















5424 


















S425 


















S4?6 


















5427 


















5428 


















5429 


022412 






iSAVREGl 










5430 


022412 


010046 




MOV 


RO ; C SP) 


f f PUSH RO 


ON 


STACK 


5431 


022414 


010146 




MOV 


p 3 , M ( SIP) 


f 1 PUSH R i 


ON 


STACK 


5432 


022416 


010246 




MOV 


P2,'«(SP3 


5 J PUSH R2 


ON 


STACK 


5433 


022420 


010346 




MOV 


P3 ^ ■» ( SP) 


a J PUSH R3 


ON 


STACK 


5434 


022422 


010446 




MOV 


R4# ■«» ( SP) 


; ; PUSH R4 


ON 


STACK 


5435 


022424 


010546 




MOV 




; ; PUSH R5 


ON 


STACK 


5436 


022426 


016646 


000022 


MOV 


22(SP);'»(SP) 


J J SAVE PS 


OF 


MAIN FLOW 


543? 


022432 


016646 


000022 


f»*OV 


22(SP3 jr^(SP3 


If SAVE PC 


OF 


MAIN FLOW 


5438 


022436 


016646 


000022 


MOV 




J 1 SAVE PS 


OF 


CALL 


5439 


022442 


016646 


000022 


MOV 


22 (SP3 #■«»(§?) 


; 1 SAVE PC 


OF 


CALL 


5440 


022446 


000002 




RTI 










5441 


















5 442 








f^RESTOPE HO^-RS 










5443 








f^CALLl 










5444 








RESREG 










5445 


022450 






SRESREGf 










5446 


022450 


012666 


000022 


MOV 


CSp)4»22(SP3 


J ^RESTORE 


PC 


OF CALL 


544? 


022454 


01 2666 


000022 


MOV 


CSP)*?22(SP3 


1 1 RESTORE 


PS 


OF CALL 


5446 


02 2460 


012666 


000022 


MOV 




J > RESTORE 


PC 


OF MAIN FLOW 


54^9 


22 46 4 


012666 


000022 


MOV 


(SP)+»22(SP} 


; : RESTORE 


PS 


OF MAIN FLOW 


5450 


022470 


012605 




MOV 


( SP ) ♦ f R5 


IJPOP STACK 


INTO R5 


5451 


022472 


03 2504 




MOV 


( SP3 ■4- # R4 


nPOP STACK 


INTO P4 


5452 


022474 


012603 




MOV 


(SP)+rR3 


; jPOP STACK 


INTO R3 


5453 


022476 


012602 




MOV 


( SP3 R2 


; >PDP STACK 


INTO P2 


5454 


022500 


01 2601 




MOV 


(SP)+,R1 


; ;POP STACK 


INTO Rl 


5455 


2250 2 


012600 




MOV 


(SP)4-,R0 


; f POP STACK 


INTO RO 


5456 


022504 


000002 




RTI 










5457 


















5458 








^SBTTL DOUBLE 


LENGTH BINARY 


TO DECIMAL ASCII CONVERT ROUTINE 


5459 


















54b0 








5 1 »*##**«■#•«■^5■#«•js■#*■»#^^.*»«#«^*#«■««•#»# 


5461 








>»THIS ROUTINE 


WILL CONVERT A 


32-BIT BINARY 


NUMBER TO AN UNSIGNED 


5462 








j«DECTMAL (ASCII) NUMBER, THE 


SIGN OF THE 


BINARY NUMBER MUST BE 


5463 








j*POSITIVEs 











5464 
54b5 
5466 
5467 
54b8 
5469 
5470 
5471 
54/2 
547 3 



j®CALL 
I* 



022506 104413 

022510 016602 000002 

022514 012700 022666 



MOV 
JSR 

RETURN 



SDB2DS SAVREG 
F'OV 
MOV 



#PNTR,«CSP5 
PC,?#$PB2D 



2(SP3#R2 

#SDECVL,RO 



n POINTER TO LOW WORD OF BINARY NUMBER 



; )THE FIRST ADDRESS OF ASCIZ 
; ; IS ON THE STACK 



;SAVE REGISTERS 

JPICKUP THE DATA POINTER 

fGET ADDRESS OF "SDECVL" STRING 
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5 47 4 


022520 


010066 


000002 




HOV RO,2(SP3 


; jPUT ADDRESS OF ASCIZ STRING ON STACK 


5475 


022524 


012201 






MOV CP23*jRl 


; ;PICKUP THE BINARY NUMBER 


5476 


022526 


012202 






MOV (R23+»R2 




5477 


022530 


012737 


000012 


022604 


MOV #I0»#4S 


; »SET UP TO DO 10 CONVERSIONS 


5478 


022536 


012704 


022616 




MOV »6TNpWR,R4 


; ; ADDRESS OF TEN POWER 


5479 


022542 


012705 


022620 




MOV #gTNPWR*2,R5 




5480 


022546 


005003 






CLR R3 


; jCLEAR PARTIAL 


54S ! 


022550 


161401 




2S5 


SUB CR43?Ri 


jjSUBTRACT TEN POWER 


5482 


022552 


005602 






SBC R2 




5483 


022554 


161502 






SUB {R53»R2 




54«4 


022556 


002402 






BLT 3$ 


; ;BR IF TEN POWER TO LARGE 


5485 


022560 


005203 






INC R3 


; J ADD 1 TO PARTIAL 


5486 


022562 


000772 






BR 2$ 


J {LOOP 


5487 


022564 


062401 






ADD CR43'frjRl 


n RESTORE SUBTRACTED VALUE 


548P 


022566 


005502 






ADC R2 




5489 


022570 


062402 






ADD (R43-S'(fR2 




5490 


022572 


022525 






CMP (R5)*» CRS)-?- 


J J MOVE TO NEXT TEN POWER 


5491 


022574 


052703 


000060 




eiS ^^OjRS 


nCHANGE PARTIAL TO ASCII 


5492 


022600 


110320 






MOVB R3*(R03* 


; ISAVE IT 


5493 


022602 


005327 






DEC (PC)* 


; jDONE? 


5494 


022604 


000000 






jWORD 




5495 


022606 


001357 






BNE IS 


; )BR IF NO 


5496 


022610 


105020 






CLRB CR03* 


f jTERMINATOR 


5497 


022612- 


104414 






RESREG 


RESTORE REGISTERS 


5498 


022614 


000207 






RTS PC 


; f RETURN 


5499 


022616 


145000 




STNPWRs 


14S000 


1 5 1 eOE09 


5500 


022620 


035632 






35632 




5501 


022622 


160400 






160400 


?|1«0E08 


5502 


022624 


002765 






276S 




5503 


022626 


1 J 3200 






113200 


?jl«0E07 


5504 


022630 


000230 






230 




5505 


022632 


041100 






041100 


f f I aOEOS 


55 06 


022634 


000017 






17 




5507 


022636 


103240 






103240 


jf 1 bOEOS 


5508 


022640 


00000! 






1 




5509 


022642 


023420 






23420 


1 f I 80E04 


5510 


022644 


000000 











55! 1 


022646 


001750 






1750 


nUOEOs 


551? 


022650 


000000 











55? 3 


022652 


000144 






144 


nl90E02 


§514 


022654 


000000 











S515 


022656 


000012 






12 


?f IsOEOI 


5516 


022660 


000000 











5517 


022662 


000001 






1 


f J 1 aOEOO 


5518 


022664 


000000 











5519 


022666 


000014 




$DECVLi 


«BLKB 12s 


f J RESERVE STORAGE FOR ASCIZ STRING 


5520 














5521 














5522 














5523 








gSBTfL 


TRAP DECODER 




5524 














5525 










S5?6 








f*THIS 


ROUTINE WILL PICKUP THE 


LOWER BYTE OF THE "TRAP" INSTRUCTION 


S527 








?»AND USE If TO INDEX THROUGH 


THE TRAP TABLE FOR THE STARTING ADDRESS 


5528 








|#0F THE DESIRED ROUTINE„ THEN 


USING THE ADDRESS OBTAINED IT WILL 


5529 








|#G0 TO 


THAT ROUTINE9 
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022702 


1 U0§6 




& Inflr S MUV 


RO # ™ C SP 3 


J 1 kSAV& HO 


S532 


022704 


016600 


000002 


MOV 


2(SP)?R0 


WGET TRAP ADDRESS 


5533 


022710 


00S740 




Tsr 


•»(R0) 


MBACKUP by 2 


S534 


022712 


111000 




MOVB 


(RO)»RO 


fiGET RIGHT BYTE OF TRAP 


S535 


022714 


006300 




hSh 


RO 


,'f POSITION FOR INDEXING 


5536 


022716- 


016000 


022736 


MOV 


gTRPADCROJ^RO 


II INDEX TO TABLE 


5537 


022722 


000200 




RTS 


RO 


II GO TO ROUTINE 



S538 
5539 
5540 
S541 
5542 
S543 
S544 
5545 
S546 
5547 
5548 
5549 
5350 
S551 
5552 
5553 
5554 
5555 
S556 
5557 
5558 
5559 
S560 
5561 
5562 
5563 
5564 
S565 
5566 
5567 
5568 
5569 
5570 
5571 
S572 
557 3 
5574 
S575 



022724 
022726 
022734 



022736 
022740 
022742 
022744 
023746 
022750 



022754 
022756 
022760 
022762 

022764 
022766 

022770 

022772 

022774 

022776 



011646 
016666 
000002 



022724 

020260 
022104 
022060 
022120 
020034 



022752 021154 



021064 
021366 
021456 
021756 
022412 
0224S0 

015602 

016470 

016044 

016106 



flTHIS IS USE TO HANDLE THE "GETPRI" MACRO 



000004 000002 



STRAP2I MOV 
MOV 
RTI 



4CSP)j2CSP3 



; I MOVE THE PC DOWN 
IfMOVE THE PSW DOWN 
I iRESTORE THE PSW 



sSBTTL TRAP TABLE 



|*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
|*BY THE "TRAP" INSTRUCTION, 



ROUTINE 

,WORD 

STYPE 

STYPOC 

8TYP0S 

STYPON 

8TYPDS 



$TRAP2 
I iCALLsTYPE 
I iCALLsTYPOC 
I iCALLsTYPOS 
I iCALLaTYPON 
I iCALLsTYPDS 



THAP+1 (104401) 
TRAP+2(104402) 
TRAP+3(104403) 
TRAP+4(104404) 
TRAP+5(104405) 



TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WlIH SIGN) 



SGTSWR iiCALLaGTSWP 

SCKSWR nCALLsCKSWR 
SRDCHR ifCALLaRDCHR 
8RDLIN iiCALLbRDLIN 
8PD0CT liCALLaRDOCT 
SSAVREG ffCALLsSAVREG 
gHESREG nCALLsRESREG 

CN.RST I iCALLaCON, RESET 

PR.PST I iCALLsDRVgPESET 

MSGE I iCALLsMESAGE 

TV, MSG I iCALLbTYPMSG 



TRAP + 6 C 104406) GET SOFT^SWR SETTING 

TRAP+7(104407) TEST FOP CHANGE IN SOFT-SWR 

IPAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 

TRAP-t.ll(10441 1) TTY TYPEIN STRING ROUTINE 

TRAP+12(104412) PEAD AN OCTAL NUMBER FROM TTY 

TRAP+UC 1044133 SAVE R0-R5 ROUTINE 

TRAP+14(1044143 RESTORE R0»P5 ROUTINE 

TRAP+15( 104415) CONTROL RESET ROUTINE 

TRAP+16(104416) DRIVE RESET ROUTINE 

TRAP+17(104417) MESSAGE HANDLER 

TRAP+2n( 104420) MESSAGE TYPEOUT ROUTINE 



5576 
5577 
5578 



023000 016620 



CN.PDY I iCALLaCONgRDY TPAP+2 1 ( 1 0442 1 ) WAIT FOB CONTROL READY 



5579 
5580 
558! 
5502 
5583 
5584 
5585 



023002 
023004 
023006 



016716 
016514 
022306 



TSTPWS I iCALLjsTST.RWS TRA P + 2 2 ( 1 04 42 2 ) TEST R/W/S ROY SET 



RES, DO I |CALL=RESDON 
TYPDES I iCALLeTYPDSS 



TRAP+23(104423) DRIVE RESET DUNE? 

TPAP+24( 104424) TYPE DECIMAL, SUPRES LDG O'S 
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5586 










bSBTTL 


POWER 


DOWN AND UP ROUTINES 


5587 


















5588 












5589 










1 POWER 


DOWN ROUTINE 




5590 


023010 


012737 


023154 


000024 


SPWRDNs 


MOV 


«8ILLUPr9«PWRVEC 


1 ISET FOR FAST UP 


§591 


023016 


012737 


000340 


000026 




MOV 


#340i»@#PWRVEC*2 


1 |PRI0;7 


S592 


023024 


010046 








MOV 


ROy^-CSP) 


; I PUSH RO ON STACK 


5593 


023026 


010146 








MOV 


Pi,»CSP) 


1 iPUSH Rl ON STACK 


5594 


023030 


010246 








MOV 


R2»»CSP3 


J f PUSH R2 ON STACK 


5595 


023032 


010346 








MOV 


R3,-CSP) 


1 fPUSH R3 ON STACK 


5596 


023034 


010446 








MOV 


R4,»(SP) 


11 PUSH R4 ON STACK 


5597 


023036 


010546 








MOV 


P5,-(SP3 


; iPUSH R5 ON STACK 


5598 


023040 


017746 


156074 






MOV 


@SWR,«CSP3 


II PUSH gSWR ON STACK 


5599 


023044 


010637 


0231S0 






MOV 


SP»$SAVR6 


If SAVE SP 


5600 


023050 


012737 


023062 


000024 




MOV 


#SPWRUP#§#PWR¥EC 


If SET UP VECTOR 


S601 


0230S6 


000000 








HALT 






5602 


023060 


000776 








BP 


«-2 


1 I HANG UP 


5603 


















5604 












S605 










1 POWER 


UP ROUTINE 




5606 


023062 


012737 


023IS4 


000024 


$P5^RUP8 


MOV 


#$ILLUPyii#PWRVEC 


1 ISET FOR FAST DOWN 


5607 


023070 


013706 


023160 






MOV 


$SAVR6;SP 


If GET SP 


S608 


023074 


005037 


023160 






CLR 


$SAVR6 


1 J WAIT LOOP FOR THE TTY 


5609 


023100 


00S237 


023160 






INC 


§SAVR6 


1 pWAIT FOB THE INC 


5610 


023104 


001375 








BNE 


IS 


1 |0F WORD 


S611 


023106 


012677 


1S6026 






MOV 


CSP3«i'?iSWR 


I IPDP STACK INTO gSWR 


S612 


023112 


012605 








MOV 


{SP)+,R5 


1 IPOP'STACK INTO R5 


S613 


023114 


012604 








MOV 


CSP3-«-f R4 


11 POP STACK INTO R4 


§614 


023116 


012603 








MOV 


(SP)+,R3 


1 iPOP STACK INTO R3 


S615 


023120 


012602 








MOV 


(SP)t,R2 


II POP STACK INTO R2 


5616 


023122 


012601 








MOV 


(SP)«,R1 


1 |POP STACK INTO Rl 


S617 


023124 


012600 








MOV 


(SP)*,RO 


1 IPOP STACK INTO RO 


5618 


023126 


012737 


023010 


000024 




MOV 


»8PWRDN,8*PWRVEC 


If SET up THE POWER DOWN VECTOR 


S619 


023134 


012737 


000340 


000026 




MOV 


#340»®#PWRVEC*2 


J IPRI0I7 


3620 


023142 


104401 








TYPE 




1 REPORT THE POWER FAILURE 


S621 


023144 


023162 






iPWRf^Gi 


9WORD 


8P0WER 


If POWER FAIL MESSAGE POINTER 


S622 


023146 


012716 








MOV 


( PC ) ♦ , (SP) 


1 iRESTART AT PWRFL 


S623 


0231S0 


004244 






iPWRADf 


«WORD 


PWRFL 


1 iRESTART ADDRESS 


5624 


023152 


000002 








RTI 






S625 


0231S4 


000000 






lILLUPi 


HALT 




1 ITHE POWER UP SEQUENCE WAS STARTED 


3626 


023l§6 


000776 








BR 




1 1 BEFORE THE POWER DOWN WAS COMPLETE 


S627 


023160 


000000 






SSAVB6i 







1 iPUT THE SP HERE 


5628 


023162 


OOSOIS 


047§20 


042S27 


IPOWERI 


^ASCIZ 


<lS><i2>''P0WER« 




S629 


023170 


000122 














5630 












5EVEN 






5631 


















S632 
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5633 
5634 
5635 
5636 
5637 
563B 
56 3 9 
5640 
5641 
5642 
5643 
5644 
5645 
56^6 
5647 
5648 
56^9 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
56b2 
5663 
5664 
5665 
5666 
56b7 
5668 
5669 
5670 
5671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 



^SBTfl, FUNCTION SELECTION PROGRAM 



THIS IS. THE FUNCTION SELECTION PROGRAM^ 
ON ENTERING THIS SUi»'PROGRAM THE FIRST QUESTION ASKED IS 



FUNCTION? 
COMMANDS! CR 
DR 
SK 
WR 
RD 
WC 
RC 



IN REPLY TYPE IN ONE OF THE FOLLOWING COMMANDS « 
CONTROL RESET 
DRIVE RESET 
SEEK 
MRITE 
BEAD 

mm CHECK 

READ CHECK 

TERMINATE EVERY COMMAND WITH <CB>8 FURTHER QUESTIONS CRKBA? , RKDA? , 
#WORDS| ) WILL BE ASKED^ TYPE IN THE BUS ADDRESS COCTAL), DISK ADDRESS 
(OCTAL) , AND NUMBER OF WORDS TO BE TRANSFERRED (OCTAL) , IF A NON-EXISTENT 
jCYLINDER OR A NON-EXISTENT SECTOR IS TYPED IN, THE QUESTION (RKDA?) WILL 
BE ASKED AGAIN, 

IN CASE OF SEEK FUNCTION, SEEK IS DONE BETWEEN A SET OF CYLINDERS GIVEN 
BY THE USER (CYLl? , CYL2?) , IN REPLY TO (CYLl?, CYL2?) TYPE IN THE OCTAL 
CYLINDER NUMBERS BETWEEN WHICH THE SEEK IS TO BE DONE. SET SWITCH 
REGISTER BITS <15»13> TO THE DRIVE # ON WHICH SEEK IS TO BE DONE, 

IN CASE OF A WRITE FUNCTION IF SW IS SET TO 1 THE PROGRAM WILL ASK 
THE USER FOR THE PATTERN TO BE WPIITENj 

PATRN?125252<CR> 
THE USER SHOULD TYPE IN THE (OCTAL) PATTERN HE WANTS TO WRITE, 
NOTE THAT THE NUMBER OF WORDS TRANSFERRED SHOULD BE WITHIN THE 
f BOUNDS OF THE SYSTEM^ 

IN CASE OF A WRITE CHECK FUNCTION IF SWQ IS SET TO 1 THE PROGRAM 
WILL ASK THE USER FOR THE PATTERN TO BE WRITE CHECKEDs 
PATRN?125252<CR> 

THE USER SHOULD TYPE IN THE (OCTAL) PATTERN TO BE WRITE CHECKED, 

LOCATIONS "lOBUFC ONWARDS ARE RESERVED FOR DATA BUFFERS, YOU CAN USE 
THESE LOCATIONS FOR DOING DATA TRANSFERS IN THIS PROGRAM (OR YOU CAN 
USE ANY OTHER BUFFER FOR DATA TRANSFER AS LONG AS IT DOES NOT OVERLAY 
THE PROGRAM) , 

THE SAME FUNCTION IS PERFORMED AGAIN AND AGAIN, THUS PROVIDING 
A VERY GOOD SCOPE LOOPg IF YOU WANT TO GIVE A NEW FUNCTION PUT SW 3 UP, 
THE QUESTION (FUNCTION?) WILL BE ASKED AND YOU CAN START ALL OVER AGAIN, 
IF ON EXECUTING A FUNCTION AN ERROR OCCURS, IT IS REPOTRED , WITH 
RELEVANT REGISTER CONTENTS GIVEN , 



5679 
56B0 
5681 
56B2 
5683 
5684 
5685 
5686 
5687 
56 8 P 



023172 

023172 194 401 023200 

023176 000407 

023216 

023216 104411 



f ?65S5 
64$t 



TYPE 

BR 

»ASCIZ 



#65S 
64$ 

<15><12>/FUNCTION? / 



;R2 CONTAINS RKCS CONTENTS 

; R3 CONTAINS RKDA CONTENTS 

;R4,R5 CONTAIN THE CYLINDER #S BETWEEN 

f WHICH SEEK IS TO BE DONE, 

; ;TYPE ASCIZ STRING 
jGET OVER THE ASCIZ 
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5689 


023220 


012600 






MOV 


(SP)*,R0 


5690 


023222 


112001 






MOVB 


(R0)*,R1 


569) 


023224 


120127 


000127 




CMPB 


Rl, #*W 


5692 


023230 


001026 






BNE 


2$ 


5693 


023232 


121027 


000122 




CMPB 


(RO},#*R 


5694 


023236 


OOlOlO 






BNE 


18 


5695 


023240 


004737 


024064 




JSR 


PCCHKSWO 


5696 


^^23244 


01 2702 


004003 




MOV 


#4003rR2 


5697 


023250 


000536 






BR 


NXTDA 


5698 














5699 


023252 


012702 


000003 




MOV 


n,R2 


5700 


023256 


000521 






BR 


NXTBA 


5701 


023260 


121027 


000103 




CMPB 


(RO),#*C 


5702 


023264 


001342 






BNE 


FUNBEG 


57 3 


023266 


004737 


024064 




JSR 


PCCHKSWO 


570 4 


023272 


012702 


004007 




MOV 


#4007, R2 


5705 


023276 


000523 






BP 


NXTDA 


5706 














5 707 


023300 


012702 


000007 




MOV 


#7,P2 


5708 


023304 


000506 






BR 


NXTBA 


5709 














571 


023306 


120127 


000122 




CMPB 


R1,#'R 


57U 


02331 2 


001014 






BNE 


3$ 


5712 


023314 


121027 


000104 




CMPB 


(RO)##'D 


571 3 


023320 


001003 






BNE 


63 


5714 


023322 


01 2702 


000605 




MOV 


#5,R2 


5715 


023326 


000475 






BP 


NXTBA 


5716 


023330 


121027 


000103 


81! 


CMPB 


(RO)##*C 


5717 


023334 


001316 






BNE 


FUNBEG 


57 IB 


023336 


012702 


000013 




MOV 


#13»R2 


5719 


023342 


000501 






BR 


NXTDA 


5720 














572 1 


023344 


120127 


000104 


3$ g 


CMPB 


R1,#^D 


5722 


023350 


001006 






BNE 


4$ 


5723 


023352 


121027 


000122 




CMPB 


CR05j#*R 


5724 


023356 


001305 






BNE 


FUNBEG 


5725 


023360 


012702 


000015 




MOV 


#I5*R2 


5726 


023364 


000470 






BR 


NXTDA 


5727 














5728 


023366 


120127 


000103 




CMPB 


R1,#*C 


5729 


023372 


001006 






BNE 


5S 


57 30 


023374 


121027 


000122 




CMPB 




S731 


023400 


001274 






BNE 


FUNBEG 


5732 


023402 


012702 


000001 




MOV 


#1,R1 


57 33 


023406 


000533 






BR 


EXEC 


5734 














5735 


023410 


120127 


'000123 


311 


CMPB 


R1,#*S 


5736 


023414 


001266 






BNE 


FUNBEG 


5737 


023416 


121027 


0001 13 




CMPB 


CR05y#*K 


5738 


023422 


001263 






BNE 


FUNBEG 


5739 


023424 


012702 


OOOOll 




MOV 




5740 














3741 


023430 






6S| 






5742 


023430 


104401 


023436 




TYPE 


»67l 


5743 


023434 


000404 






BR 




5744 










sASCIg 


/CYLl? / 



;CHECK SW SET? 



;CHECK SW SET? 



I f TYPE ASCIZ STRING 
I I GET OVER THE ASCIZ 
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S74S 


023446 






S746 


023446 


004737 


024032 


S747 


023452 


000766 




S748 


0234S4 


010004 




5749 








S750 


023456 






S7Si 


0234515 


104401 


023464 


S752 


023462 


000404 




S753 








5754 


023474 






§755 


023474 


004737 


024032 


5756 


023500 


000766 




S757 


023502 


010005 




5758 


023504 


017700 


i5S430 


5759 


023510 


042700 


017777 


5760 


023S14 


OS0004 




576! 


023516 


osooos 




5762 


023520 


0004§i 




5763 








S764 








S765 


023522 






5766 


023522 


104401 


023530 


5767 


023526 


000404 




S768 








S759 


023540 






5770 


023540 


104412 




577i 


023S43 


012637 


001476 


5772 








5773 


023546 






5774 


023546 


104401 


023554 


5775 


023552 


000404 




5776 








57 7 7 


023564 






5778 


023S64 


104412 




5779 


023566 


012600 




5780 


023570 


OlOOOl 




5781 


023572 


006201 




5782 


023574 


006201 




5783 


023576 


006201 




5784 


023600 


006201 








A A O A f 
U U 6 U i 




5786 


023604 


042701 


177400 


5787 


023610 


020127 


000312 


5788 


023614 


003354 




5789 


023616 


010001 




5790 


023620 


042701 


177760 


5791 


023624 


020127 


000013 


5792 


023630 


003346 




5793 


023632 


010003 




5794 


023634 


022702 


000015 


5795 


023640 


001416 




5796 








5797 








5798 


023S42 






5799 


023642 


104401 


023650 


5800 


023646 


000405 





f ?69SI 
68$t 



64$8 



f |658l 
64$§ 



JSR 

BR 

M0¥ 



TYPE 

BP. 

sASCXZ 

JSR 

BR 

MOV 

MOV 

BIC 

BIS 

BIS 

BP 



TYPE 
BR 

RDOCT 
MOV 



TYPE 
BR 

,ASCIZ 

ROOCf 

MOV 

MOV 

ASR 

ASP 

ASR 

ASR 

ASR 

BIC 

CMP 

BGT 

MOV 

BIC 

CMP 
BGf 
MOV 
CMP 

BW.Q 



TYPE 
BR 



PC, INPT 

6$ 

R0»R4 



^69$ 
68$ 

/CYL27 / 

PC, INPT 

7$ 

R0,R5 
9SWR,R0 

#17777, RO 

R0,R4 

R0,R5 

EXEC 



,658 

64$ 

/RKBA? / 



(SP)+,INDX2 



,65® 
§4$ 

/RKDA? / 



(SP)4-,R0 
P0,R1 

Bl 
Rl 
Rl 
Rl 
Rl 

#177400, Rl 
R1,«312 
NXTDA 
RO,Rl 

#177760, Rl 

Ri,#l3 
NXTDA 

R0,R3 
#15, R2 
EXEC 



,65S 
64$ 



mtype asciz string 
;>get over the asciz 



;GET DRIVE » FROM SW REG<15«13> 
fCLR UNWANTED BITS 
I SET DRIVE # IN DSK ADRES 



; jTYPE ASCIZ STRING 
; >GET OVER THE ASCIZ 



fjTYPE ASCIZ STRING 
; jGET OVER THE ASCIZ 



; ;TYPE ASCIZ STRING 
fjGET OVER THE ASCIZ 
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5801 










1 F65$I 


, ASCIZ 


/SWORDS? / 




5802 


023662 








64S8 








5803 


023662 


104412 








RDOCT 






5804 


013664 


005416 








NEG 


(SP) 




5 805 


023666 


012637 


001502 






MOV 


(SP)+, INDX4 




5806 


023672 


000401 








BP 


EXEC 




S807 


















S808 


023674 


104415 






EXEC 11 


CONjRESET 


;CLR EROR, CONTROL RESET 


58 09 


023676 


022702 


000011 




EXECS 


CMP 


811 #R2 


^ ISEEK FUNCTION? 


5810 


023702 


001005 








BNE 


2$ 


|N0 


5811 


023704 


020403 








CMP 


R4,R3 


;IF SEEK, INSERT THE RIGHT 


S8U 


023706 


001402 








BEQ 


3$ 


JCYLINDER ADDRESS 


5813 


023710 


010403 








MOV 


R4,R3 




5814 


023712 


000401 








BR 


2$ 




5815 


023714 


01 0503 








MOV 


R5,R3 




5816 


023716 


013777 


00147S 


15SS36 




MOV 


INDX2,9RKBA 




5817 


023724 


010377 


155S34 






MOV 


R3,PRKDA 




5818 


023730 


013777 


001502 


1SSS22 




MOV 


INDX4,@RKWC 




5819 


023736 


010277 


15S514 






MOV 


R2,9RKCS 




5820 


023742 


10577? 


1S5S10 




li! 


TSTB 


IRKCS 


J WAIT FOR CNTPOL PDY 


S821 


023746 


10037S 








BPL 


1$ 




3822 


0237S0 


022702 


000001 






CMP 


#1,R2 


; IF IT'S CON RESET FUNCTION 


5823 


023754 


00140! 








BEQ 


4g 


IDONT WAIT FOR R/W/S RDY 


5824 


023756 


104423 








RESDON 




;R/w/s RDY? 


5825 


















5826 


023760 


032777 


140000 


I5S47Q 




BIT 


#140000, ?RKCS 


{ERROR? 


5827 


023766 


001006 








BNE 


FUNERR 


lYETS 


S828 


023770 


032777 


000010 


155142 


CHSWf - 


BIT 


#SW3,@SWR 


; TERMINATE THIS FUNCTION OR REPEAT? 


5829 


023776 


001737 








BEQ 


EXEC 


{REPEAT 


5830 


024000 


000137 


023172 






JMP 


FUNBEG 


{TERMINATE 


S83i 


















S832 


















5833 


024004 


012737 


023674 


OOlilO 


rUNERRS 


MOV 


iEXECljSLPERR 


fSET UP FOR LURING 


S834 


024012 


012737 


023674 


001106 




MOV 


#EXEC1,8LPADR 




S835 


0240S0 


004737 


016162 






JSR 


PC,GT4RG 




S836 


024024 


104030 








ERROR 


30 


{REPORT ERROR 


§837 


024026 


104413 








CON, RESET 


{CLR ERROR 


S838 


024030 


000757 








BR 


CHS^ 




S839 


















5840 


024032 


104412. 






INPTI 




RDOCT 




S841 


024034 


012600 








MOV 


CSPJ^jRO 




3842 


024036 


020027 


000312 






CMP 


R0,$312 




3843 


024042 


003007 








BGT 


-IS 




§844 


024044 


006300 








ASL 


RO 




S845 


024046 


006300 








ASL 


RO 




S846 


024050 


006300 








ASh 


RO 




5847 


024052 


006300 








ASL 


RO 




S848 


O240S4 


006300 








ASL 


RO 




5849 


024OS6 


062716 


000002 






ADD 


#2, CSPJ 




5850 


0240S2 


000207 






ISi 


RTS 


PC 




58S1 


















S852 


024064 


032777 


000001 


iSS04S 


CHKSWOS 


BIT 




{WRITE A PATTERN GIVEN BY USER? 


5853 


024072 


0014iS 








BEQ 


1$ 


{NO ■ 


3054 
















{YES, ASK FOR PATTERN 


505S 


024074 


104401 


024102 






TYPE 




{ {TYPE ASCIZ STRING 


58SS 


024100 


000404 








BR 


341 


{ {GET OVER THE ASCIZ 
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5857 










n6S8l 


.ASCIZ 


/PATRN?/ 




5858 


024112 








64$i 








5859 


024112 


104412 








BDOCT 






5860 


024114 


012637 


031446 






MOV 


(SP)*,|OBUFi 


J SAVE THE PATTERN 


5861 


024120 


012737 


031446 


00i476 




MOV 


#I0BUF1,1NDX2 




5862 


024126 


000207 








RTS 


PC 




5863 


024130 


062716 


000006 






ADD 


»6, (SP) 


J SKIP NXT 2 INST ON RETURN 


5864 


024134 


000207 








RTS 


PC 




5865 


















5866 


024136 


104416 






FCHECKJ 


DRV, RESET 




S8b7 


024140 


104415 








CON, RESET 




5R68 


024| 42 


01 3737 


001230 


002120 




MOV 


DRIVADiDPHOLD 


jSAVE DRIVE ADRR 


5Pfe9 


024150 


032737 


020000 


001230 




BIT 


#20000, DRIVAD 


ISEE IF ODD 


5870 


024156 


001404 








BEQ 


IS 




587 1 


024t60 


042737 


020000 


001230 




BIC 


«t20000,DRIVAD 


JMAKE EVEN ' 


5872 


024166 


000403 








BR 


2$ 




5573 


024170 


052737 


020000 


001230 


ISS 


BIS 


820000iDRIVAD 


fMAKE ODD 


5B74 


024176 


013777 


001230 


155260 


2$S 


MOV 


DRIVAD,SRKDA 


;DRIVE ADDR 


5875 


024204 


012777 


00001 1 


155244 




MOV 


#11,9RKCS 


fDRIVE SEEK 


5976 


024212 


104421 








CON, ROY 






5877 


024214 


013777 


002120 


155242 




MOV 


DRH0LD,9RKDA 


fOTHER DRIVE 


5878 


024222 


104421 








CON.RDY 






5879 


024224 


032777 


000100 


155220 




BIT 


#100»@RKDS 


jHEAEDS IN MOTIONN? 


5B80 


024232 


001001 








BNE 


3$ 


;N0 SO RK-05J 


5881 


024234 


005725 








TSf 


CB55* 


> YES RK-05F 


5882 


024236 


013737 


002120 


001230 


3${ 


MOV 


DPHOLD,DRIVAD 


> RESTORE ADDR 


5B8 1 


024244 


104416 








DRVjBESET 




5864 


024246 


000205 








RTS 


R5 




5885 


02 4 25 


005037 


001230 




SIZEFi 


CLR 


DRIVAD 


; START AT DRO 


5886 


024254 


012700 


001232 






MOV 


»DRIV0,R0 


jTABLE OF AVAIL DRIVES 


58fl7 


2 426 


105710 






4$! 


TSTB 


(RO) 


JTHIS DRIVE HERE? 


5888 


024262 


001413 








BEQ 


2$ 


f NO 


5889 


024264 


105760 


000002 






TSTB 


2(R0) 


;COMPLEMENT HERE? 


5^90 


2^270 


001410 








BF.Q 


2$ 


JNO 


589 1 


024272 


004537 


024136 






JSR 


RS.FCHECK 


JSEE IF F MODEL 


5892 


024276 


000405 








BR 


2$ 


; J MODEL 


5'^93 


024300 


052710 


000002 






BIS 


#2, (RO) 


J SEX SIGN FOR F 


5BQ4 


024304 


052760 


000002 


000002 




BIS 


82,2(R0) 


J BOTH DRIVES 


5895 


024312 


0057 2 






2St 


TST 


(R0) + 




5896 


024314 


005720 








TST 


(R0) + 


jNEXT FAIR OF DRIVES 


5B97 


024316 


0627 37 


040000 


001230 




ADD 


#40000, DPIVAD 


jMEXT ACTUL ADDR 


5699 


2 4 3 2 4 


2 27 00 


00 1251 






CMP 


»DRIV7+1 rRO 


J CHECKED ALL? 


5899 


2 4 3 3 


00 3 35 3 








BGT 


4$ 


J NOT YET 


59O0 


2 4 3 32 


000207 








RTS 


PC 




5901 


















5 902 










JERPOR 


MESSAGES 






5903 


















5 90 4 


















5905 


024334 


1)47103 


05U24 


020114 


EMI t 


, ASCIZ 


/CNTRL ROY DIDN 


'T SET AFTP SEEK/ 


59f'b 


024342 


04 2122 


020131 


044504 










59u7 


"2*350 


047104 


052047 


051440 










5908 


024356 


05 2 105 


040440 


052106 










5 90 9 


2 4 3 6 4 


020122 


042523 


045505 










59 10 


2 4 3 7 2 


000 














5911 


















5912 


024373 


123 


0471 1 1 


047440 


EM2| 


.ASCIZ 


/SIN ON SEEK/ 
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59 1 3 


2 4 4 00 


020116 


042523 


045505 








5914 


02440b 


000 












5915 
















5916 


024407 


104 


042522 


047440 


EM3! 


, ASCIZ 


/ORE ON SEEK/ 


5917 


024414 


020116 


042523 


045505 








591 8 


2 4 4 2 2 


ono 












5919 
















5 9 2 


024423 


047 


051105 


023522 


EM4; 


, ASCIZ 


/'ERR' ON SEEK/ 


5921 


024430 


047440 


020116 


042523 








5922 


024436 


045505 


000 










5923 
















5924 


02444 1 


104 


052522 


047440 


EMS J 


, ASCIZ 


/DRU ON SEEK, PUT DRV ON 'LOAD' & 'PUN'/ 


5925 


024446 


020116 


042523 


045505 








5926 


024454 


020054 


052520 


020124 








5927 


024462 


051 1 04 


020126 


047117 








5929 


024470 


023440 


047514 


042101 








5929 


024476 


020047 


020046 


051047 








5930 


2 4504 


047125 


000047 










5931 
















5932 


024510 


027522 


027527 


020123 


EM6S 


, ASCIZ 


"R/W/S RDY NOT SET AFTER SEEK" 


5933 


024516 


042122 


020131 


047516 








5934 


024524 


020124 


042523 


020124 








5935 


024532 


043101 


042524 


020122 








5 9 3b 


024540 


042523 


045505 


000 








5Q37 
















5938 


0245 45 


123 


047U1 


047440 


EM7 J 


sASCIZ 


/SIN ON WRT FMT/ 


5939 


024552 


020U6 


051127 


020124 








5940 


2 4560 


046506 


000124 










5941 
















5942 


024564 


042447 


051122 


020047 


EHiOi 


«ASCIZ 


/'ERR" ON DOING WRITE FMT/ 


5943 


024572 


047117 


042040 


044517 








5944 


024600 


043516 


053440 


044522 








5 9 45 


024606 


042524 


043040 


052115 








5946 


02461 4 


000 












5947 


024615 


123 


047U1 


047440 


EMiii 


sASClZ 


"SIN ON RD/FMT» 


5948 


024622 


020116 


042122 


043057 








5949 


2 4630 


0521 15 


000 










5950 


024633 


047 


051105 


023522 


EM12J 


, ASCIZ 


/'ERR* ON READ FMT/ 


5951 


024640 


047440 


020116 


042522 








5952 


024646 


042101 


043040 


052115 








595? 


024654 


000 












5954 


02465S 


127 


047522 


043516 


EMi3i 


, ASCIZ 


/WRONG HDRS FROM 'SEC«'/ 


5955 


024662 


044040 


051104 


020123 








5956 


024670 


051106 


04S517 


023440 








5957 


024676 


042523 


021S03 


000047 








5958 
















5959 


024704 


051 105 


•051117 


047440 


EMi48 


sASCIZ 


/EROR ON IMPLIED SEEK FROM 'CYLA' TO 'CYLB'/ 


5960 


024712 


020U6 


046511 


046120 








5961 


024720 


042511 


020104 


042523 








5962 


024726 


045505 


043040 


047522 








5963 


024734 


020115 


041447 


046131 








5964 


024742 


023501 


052040 


020117 








5965 


024750 


041447 


046131 


023S02 








5966 


024756 


000 












5967 
















5968 


024757 


122 


040S0S 


020104 


MS15I 


«ASCIZ 


/READ WRONG HDRS FROM 'CYLB' ABOVE/ 
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5969 


024764 


051127 


047117 


020107 


5970 


024772 


042110 


051322 


043040 


5971 


025000 


047522 


0201 13 


041447 


5972 


025006 


046131 


023502 


040440 


5973 


025014 


047502 


043326 


000 


5974 










5975 


02S02I 


122 


040S0S 


020104 


5976 


02S026 


051 127 


047117 


026107 


5977 


025034 


030440 


052123 


053440 


5978 


025042 


042122 


043040 


047322 


5979 


025050 


020115 


042523 


020103 


5980 


02S056 


026060 


023440 


0S4503 


5991 


02So64 


041114 


020047 


047430 


5982 


025072 


020116 


04631 1 


046120 


5983 


025100 


04251 1 


020104 


042323 


5984 


025106 


045505 


043040 


047522 


5985 


0251 1 4 


020115 


041447 


046131 


5986 


025122 


023501 


000051 




5987 










5988 


025126 


042522 


042101 


030440 


5989 


025134 


052123 


053440 


042122 


5990 


025 1 42 


043040 


047522 


020115 


5991 


025150 


042523 


020103 


026061 


5992 


02S1S6 


023440 


054503 


041114 


5993 


025164 


020047 


041101 


0531 17 


5994 


025172 


000105 






5995 










5996 


025174 


042522 


042101 


053440 


5997 


025202 


047522 


043516 


044040 


5998 


025210 


051 104 


020123 


047117 


5999 


025216 


044440 


0501 15 


044314 


6000 


025224 


042105 


051440 


042505 


600i 


025232 


020113 


051 106 


046517 


6002 


025240 


023440 


054503 


040314 


6003 


025246 


020047 


047524 


023440 


6004 


025254 


054503 


041114 


000047 


6005 










6006 


025262 


051 105 


0511 17 


047440 


6007 


025270 


020116 


047504 


047111 


6008 


025276 


020107 


051127 


0521 1 1 


6009 


025304 


020105 


047117 


042040 


601 


025312 


05151 1 


000113 




601 1 










6012 


025316 


044523 


020116 


047117 


6013 


025324 


042040 


044517 


043516 


601 4 


025332 


053440 


044522 


042524 


6015 


025140 


000 






6016 










6017 


025341 


1 10 


020105 


0471 17 


6018 


025346 


042040 


044517 


043516 


6019 


025354 


051 4 


040505 


000104 


6020 










6021 


025362 


051503 


020105 


047117 


6022 


025370 


051040 


040505 


000104 


6023 










6024 


025376 


040504 


040524 


042440 



,ASCIZ /READ WRONG, 1ST WRD FROM SEC Of 'CYLB' (ON IMPLIED SEEK FROM 'CYLA')/ 



,ASCIZ /HE ON DOING READ/ 
,ASCIZ /CSE ON READ/ 

.ASCIZ /DATA EROP ON READ FROM DISK ADRES/ 
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6025 


025404 


047522 


020122 


047117 












6026 


025412 


051040 


040505 


020104 












6027 


025420 


051106 


046517 


042040 












6028 


025426 


0S1511 


020113 


042101 












6029 


025434 


042522 


000123 














6030 




















6031 


025440 


042510 


047440 


020116 


EM26i 


, ASCIZ 


/HE ON WRT CHK/ 






6032 


025446 


051127 


020124 


044103 












6033 


025454 


000113 
















6034 




















6035 


025456 


051127 


020124 


044103 


EM27$ 


«ASCIZ 


/WRT CHK EROR/ 






6036 


025464 


020113 


051105 


051117 












6037 


025472 


000 
















6038 




















6039 


025473 


105 


047522 


000122 


EM30J 


, ASCIZ 


/EROR/ 






6040 




















6041 










J DATA 


HEADERS 








6042 




















6043 




















6044 


025SO0 


020040 


041S20 


020040 


DHli 


bASCIZ 


/ PC RKCS 


RKER 


RKD5 


6045 


025506 


020040 


051040 


041313 












6046 


02S514 


020123 


020040 


051040 












6047 


025522 


042513 


020122 


020040 












6048 


025530 


OSI040 


042113 


020123 












6049 


02S336 


020040 


051040 


042113 












6050 


02S544 


000101 
















6051 




















6052 


025546 


042523 


04SS0S 


021440 


DH6I 


,ASCIZ 


/SEEK # SEEKING 


ERRORS/ 


6053 


025554 


020040 


042523 


04S30S 












6054 


025S62 


0471U 


020107 


042440 












6055 


025570 


05U22 


0S1I17 


000123 












6056 




















6057 


025576 


020040 


041520 


020040 


DH7i 


»ASCIZ 


/ PC RKCS 


RKER 


RKDS 


6058 


025604 


020040 


051040 


041313 












6059 


02S512 


020123 


020040 


0S1040 












6060 


025620 


042513 


020122 


020040 












6061 


025626 


OSiO40 


042113 


020123 












6062 


025634 


020040 


051040 


042113 












6063 


025642 


020101 


020040 


041440 












6064 


025650' 


046131 


000 














6065 




















6066 


0256S3 


040 


050040 


020103 


DHUi 


sASCIZI/ 


PC RKCS 


RKER 


RKDS 


6067 


025660 


020040 


051040 


041513 












6068 


025666 


020123 


020040 


031040 












6069 


025674 


042513 


020122 


020040 












6070 


025702 


031040 


042113 


020123 












6071 


025710 


020040 


045522 


040504 












6072 


025716 


020072 


051104 


020040 












6073 


025724 


054503 


020114 


020040 












6074 


025732 


020040 


0S2523 


020122 












607S 


025740 


020040 


020040 


042323 












6076 


025746 


000103 
















6077 


0257S0 


042523 


021503 


020040 


DH13I 


, ASCIZ 


/SECS HDR RCVD/ 






607© 


025756 


042U0 


020122 


041S22 












6079 


02S764 


042126 


000 














6080 
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6081 


025767 


040 


050040 


020103 


6082 


025774 


020040 


020040 


054503 


6083 


026002 


040514 


020040 


020040 


6084 


026010 


054503 


041114 


020040 


6085 


026016 


020040 


051040 


042513 


6086 


026024 


020122 


020040 


04S522 


6087 


026032 


051504 


020040 


020040 


6088 


026040 


052040 


054522 


000043 


6089 










6090 


026046 


020040 


041520 


020040 


6091 


026054 


020040 


041440 


046131 


6092 


026062 


020101 


020040 


054503 


6093 


026070 


041U4 


020040 


020040 


6094 


026076 


054105 


041520 


020124 


6095 


026104 


020040 


042522 


053103 


6096 


026112 


020104 


020040 


051124 


6097 


026120 


021531 


000 




6098 










6099 


026123 


040 


050040 


020103 


6100 


026130 


020040 


020040 


054503 


6101 


026136 


041114 


020040 


042440 


6102 


026144 


050130 


052103 


020040 


6103 


026152 


051040 


041505 


042126 


6104 


026160 


000 






6J 05 










6106 


026161 


040 


050040 


020103 


6107 


026166 


020040 


020040 


051 124 


6108 


026174 


021531 


020040 


051040 


6109 


026202 


041513 


020123 


020040 


6110 


026210 


051040 


042513 


020122 


6111 


026216 


02004O 


051040 


042113 


61 t2 


026224 


020123 


051040 


042113 


6113 


026232 


035101 


042040 


020122 


611 4 


026240 


041440 


046131 


020040 


6115 


026246 


020040 


051440 


051125 


6J 16 


026254 


020040 


020040 


020040 


61 17 


026262 


042523 


000103 




6118 










6119 


026266 


047527 


042122 


020043 


6120 


026274 


042440 


050130 


052103 


6121 


026 302 


020040 


05 10 40 


041505 


6122 


026310 


042126 


020040 


041440 


6123 


026316 


046131 


020040 


052523 


6124 


026324 


020122 


051440 


041505 


6125 


026332 


000 






6126 










6127 










6128 










6129 










6130 










6131 




026334 






6132 










6133 


026334 


00! 116 


001162 


001164 


6134 


02634 2 


001166 


001170 


000000 


6135 










6136 


026350 


001116 


001162 


001164 



DH161 ,ASCIZ 



,ASCIZ/ PC 



RKDS RKDAJ DR CYL 



,ASCXZ /WORDS EXPCT 



CYL SUB SEC/ 



f EPRDR DATA POINTERS 



.EVEN 



8 WORD SERRPC,SREG0,SREG1,SREG2»SREG3,0 
,WORD SERRPC* SREGO, SREGl , SREG2» $REG3» SREG4, 
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61 37 


026356 


001166 


001 170 


001172 










61 38 


026364 


000000 














61 39 


















6140 


026366 


001116 


001162 


001164 


DTll 1 


.WORD 


$ERRPC 


IREGO, SREGl , SREG2» SREG4, SREG5, SREG6# SREG7, 


6141 


026374 


001166 


001172 


001174 










61 42 


026402 


001176 


001200 


000000 










6143 


















61 44 


026410 


001116 


001162 


001164 


DT17J 


»WORD 


$ERRPC 


SREGO# SREGl f 6REG2> 


61 45 


026416 


001166 


000000 












61 46 
61 47 


026422 


001 116 


001202 


001162 


DT245 


,WORD 


SERRPC 


SREG10,SREG0,$REG1 / $REG2 # $ PEG4 , $REG5 , $ REG6 , SREG7 , 


6148 


026430 


001164 


001166 


001172 










6149 


026436 


001174 


001176 


001200 










5150 


026444 


000000 














6151 


















6152 










J DATA BUFFERS 






6153 


















6154 


026446 








lOBUFOl 








6155 


026446 


000030 






outbuf: 


.BLKW 


24, 


JIOBUFO AND lOBUFl ARE 


bJ 56 


026526 


000030 






BUFR4J 




24« 


?TW0 - 768 WORDS LONG BUFFERS 


6157 


026606 


000030 






BUFR5I 


«BLKW 


24^ 


> NORMALLY USED FOR DATA TRANSFERS 


6158 


076666 


000030 






BUFR61 


eBLKW 


24, 


|T0 and FROM DISK 


6159 


026746 


000030 






BUFR7: 


sBLKW 


24^ 




6160 


027026 


000200 






BUFRIO: 


.BLKW 


1288 




6161 


027426 


000200 






BUFRlll 


,BLKW 


128« 




6162 


030026 


0O0200 






BUFR12I 


.BLKW 


128, 




6163 


030426 


000200 






BUFR13 J 


,BLKW 


128 9 




6164 


031 026 


000210 






BUFR14I 


.BLKW 


136« 




6165 


















6166 


031446 


001400 






lOBUFl s 


«BLKW 


768* 




6167 


















6168 


















6169 


















6170 




OOOOOl 








sEND 
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016772 


BUFR13 


030426 


DRVDON 


001223 


EXTIO 


012732 


NOSIN 


01 1026 


ADBES 


OOI4SO 


BUFRI4 


011026 


DRVPTR 


001226 


EXT4 


006614 


NXTBA 


023S22 


BADTMO 


002422 


BUFR2 


0013S2 


DRV jREs 


104416 


EXT5 


007352 


NXTDA 


02 JS46 


BEGIN 


01 Os32 


BUf R4 


02SS26 


DRgRST 


016470 


EXT& 


010432 


NXTDRV 


003760 


BEGSK 


01 32S0 


BUFR§ 




DSKADR 


001432 


EXT7 


012170 


NXTPAT 


001426 


BITO ^ 


OOOOOi 


BUf RS 


02SS6S 


DSWR « 


177570 


FCHECK 


024136 


NXTWC 


023642 


BITOO ^ 


00000"! 


BUFR7 


02S746 


DTI 


026334 


FDRI VE 


002114 


OUT ADR 


001262 


BITOI 3 


000002 


BUS^DR 


001434 


DTI 1 


026366 


FDRVEl 


0021 16 


OUTBUF 


026446 


BIT02 s 


000004 


CHKHDR 


007260 


DT17 


02641 


t r UNC 


001216 


PATO 


001414 


BIT03 s 


OOOOlO 


CHKSWO 




DT24 


026422 


FINISH 


011512 


PATl 


001416 


BIT04 s 


000020 


CHSW 


023770 


DT7 


026350 


FUNBEG 


023172 


PAT2 


001420 


BIT05 ^ 


000040 




iO'^407 


s^Pif*1/^?^™ 


000030 


FUNERR 


024004 


PAT3 


001422 


BIT06 s 


OOOiOO 


CLRERR 


0121.62 


EMI 


024334 


GC YL 


016434 


PBUFO 


001404 


BIT07 ^ 


000200 




Oil 244 


EMI 


024564 


CjETdUF 


010044 


PBUF 1 


001406 


BIT08 ^ 


000400 


CMPGRP 


014S22 


EMI 1 


024615 


GETINF 


016214 


PGSUBR 


001430 


BIT09 


001 ooo 


CN 9RDY 


016S20 


EMI 2 


024633 


GOBAK 


011650 


PIRQ s 


177772 


BITl ^ 


000002 


CN eRST 


OiSS02 


EMI 3 


024655 


GOTYPE 


013600 


PIRQVEs 


^000240 


BITIO ® 


002000 


COMPAR 


01 1220 


EM14 


024704 


GTSWR s 


104406 


PLOT 


014222 


BITII s 


004000 


CON sRDs 


104421 


EM16 


02S021 


GT4RG 


016162 


PLTGRP 


014106 


BIT12 ® 


010000 


CON sRE^ 


104415 


EM2 


024373 


GT5RG 


016136 


PLTPT 


014736 


BIT13 ^ 


020000 


CR ^ 


000015 


£M20 


025174 


HT s 


000011 


PLTl 


014436 


81X14 s 


040000 


CRliF s 


000200 


EM21 


025262 


INADR 


001260 


PRSPAT 


001424 


BITiS s 


1 00000 


CSEROR 


011654 


EH22 


025316 


INDXl 


001474 


PRO s 


000000 


BIT2 s 


000004 


DDISP ^ 


177570 


EM23 


025341 


INDX2 


001476 


PRl s 


000040 


BITS 


OOOOlO 


DHI 


02SS00 


EH24 


025362 


INDX3 


001500 


PR2 s 


OOOIOO 


BIT4 s 


000020 


DHi I 


025653 


EM2S 


025376 


INDX4 


001502 


PR3 a 


000140 


BIT5 s 


000040 


DHi3 


02S750 


EM26 


025440 


INPT 


024032 


PR4 s 


000200 


BIT6 s 


000100 


DHi4 


02i767 


EM27 


023456 


lOBUFO 


026446 


PR5 s 


000240 


BIT7 s 


000200 


DHIS 


026046 


EM3 


024407 


lOBUFl 


031446 


PR6 s 


000300 


BIT8 S3 


000400 


DH17 


02S123 


EM30 


025473 


lOTVECs 


000020 


PR7 s 


000340 


BIT9 s 


oolooo 


DH24 


026161 


EM4 


024423 


LF as 


000012 


PS a 


177776 


BLNKSI 


0021 1 1 


DH25 


026266 


EMS 


024441 


LUPHE 


010640 


PSW s 


177776 


BIjMKS2 


002110 


DH6 


02SS46 


EM6 


024510 


LUPSIN 


010632 


PTGENO 


010106 


BLNKS3 


002107 


DH7 


025576 


EM7 


024545 


LUPSW 


001222 


PTGENl 


010170 


BLNKS4 


0021 06 


DISPLA 


001 S42 


ERCNTl 


001504 


LUPWCE 


01 1350 


PTGEN2 


010272 


BLNKSS 


002105 


DISPBE 


000174 


ERCNT2 


001506 


MESAGEs 


104417 


PTGEN3 


010334 


BLNKS6 


002104 


DMPBEG 


017662 


ERCNT3 


001510 


MISCMP 


012016 


PTRNOi 


010164 


BLNKS7 


002103 


DONE 


01 1636 


EPCNT4 


001512 


MSGE 


016044 


PTRN02 


010166 


BLNKS8 


002102 


DONTRK 


011S76 


ERCNT5 


001514 


MSGl 


001602 


PTl 


001560 


BL»1KS9 


2101 


DOSURi 


011630 


ERCNT6 


001516 


MSG 10 


001742 


PTIO 


001576 


BLNF t 


002t00 


DOWCHK 


012420 


ERCNT7 


001520 


MSGl I 


001771 


PTl 1 


001600 


BLNKl 3 


002075 


DOWRT 


012224 


ERCNT8 


001522 


MSG 12 


002027 


PT2 


001562 


BPTVECs 


000014 


DRHOIjD 


002120 


ERRTYP 


017446 


MSGl 3 


002053 


PT3 


001564 


BRKDA 


016220 


DPIVAD 


001230 


ERRVECb 


000004 


MSG14 


002064 


PT4 


001566 


BTEOP 


015232 


DPIVS 


001224 


ERRl 


016376 


MSG2 


001610 


PT5 


001570 


BUFLGO 


00l4i0 


DRIVO 


001232 


ERR2 


016320 


MSG3 


001616 


PT6 


001572 


BUFLGl 


001412 


ORIVl 


001234 


ERWCHK 


011404 


MSG4 


001640 


PT7 


001574 


BUFNO 


001446 


DRIV2 


001236 


ESR13 


015456 


MSGS 


001657 


PWRFL 


004244 


BUFR 


001266 


DBIV3 


001240 


ESR15 


015364 


MSG6 


001716 


PWRVECb 


000024 


BUFPl 


001320 


DRIV4 


001242 


ESR20 


015532 


MSG7 


001733 


ROAGAI 


010642 


BUFPIO 


027026 


DPIVS 


001244 


ESR25 


015620 


MS 15 


024757 


RDCHR' s 


104410 


BUFPl 1 


027426 


DRIV6 


001246 


EXEC 


023676 


MS17 


025126 


RDLIN = 


104411 


BUFRi2 


030026 


DRIV7 


001250 


EXECl 


023674 


NOHF. 


010760 


RDOCT s 


104412 
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?ll 26»'APB-77 
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SYMBOL 


TABLE 














010606 




177774 


TST7 


010436 


SENULL 


015344 


8REG3 


001 17 


REPEAT 


01 2666 


ST2 


003512 


TYPDES 


022306 


SEOP 


015246 


SREG4 


001172 


BEPMSC 


011274 


ST3 


003742 


TYPOS s 


104405 


SEOPCT 


015270 


SREG5 


001174 


PEPTIM 


Ul 3200 


SWR 


001140 


TYPDSSs 


104424 


$ERFLG 


001103 


8REG6 


001176 


PESDONs 


104423 


SWREG 


000176 


TYPE = 


104401 


8ERMAX 


001115 


SREG7 


001200 


RESPEGs 


104414 




000001 


TYPMSGb 


104420 


9ERR0R 


017162 


8RESRE 


022450 


BESVECs 


OOOOlO 


SWOO s 


OOOOOi 


TYPOC » 


104402 


SERRPC 


001116 


8RTNAD 


01S342 


RESeDO 


016514 


swoi ^ 


000002 


TYPON s 


104404 


$ERRTB 


002122 


$SAVRE 


022412 


BETPYI 


001252 


S^02 ^ 


000004 


TYPOS B 


104403 , 


SERTTL 


001112 


SSAVR6 


023160 


RETP^a 


001254 


S5^03 ^ 


OOOOlO 


TYPTIM 


013736 


SESCAP 


001204 


SSCOPE 


017006 


RETPY3 


001256 


SW04 ^ 


000020 


TYgMSG 


016106 


SFILLC 


001156 


$SETUPs 


0001 17 


PKS» 


001462 


SWOS s 


000040 


WBUSAD 


001442 


SFILLS 


00 1155 


SSTUP s 


177777 


PKCS 


001456 


SW06 ^ 


OOOiOO 


WCAGAI 


011132 


SGOADP 


01120 


SSUPRS 


022352 


RKDA 


001464 


SH07 ^ 


000200 


WCEROP 


012062 


8 GDDAT 


001124 


SSVLAU 


017120 


RKDB 


001466 


SW08 ^ 


000400 


WCERR 


012442 


8GET42 


015320 


$SVPC s 


000220 


RKDS 


001432 


SW09 ^ 


OOlOOO 


WCHI 


012446 


SGTSWR 


021154 


8SWR s 


163000 


RKEP 


001454 


swi ® 


000002 


WCHIl 


012440 


SHD 5 


000000 


8SWPMKS 


000000 


BKPRI 


001470 


SW 10 ^ 


002000 


WCLO 


012646 


SHIOCT 


022056 


8 TKB 


0011 46 


RKVEC 


001472 


S W i 1 ^ 


004000 


WCREPT 


011334 


$ ICNT 


001104 


8 TKCN I 


020612 


RKWC 


001460 


©if* I 2 ^ 


1 0000 


WDSKAD 


001440 


$ ILLUP 


023154 


8TKINT 


020622 


m s%ooooo6 


SWl 3 ® 


020000 


WRDCNT 


001436 


8 INTAG 


001 13 5 


STKQENs 


020621 


R7 s!%000007 


swi 4 ® 


040000 


WRERR 


012240 


8 ITEMS 


001114 


STKQIN 


020614 


SAVPEG58 


104413 


SW| s ^ 


lOOOOO 


WRHI 


012400 




001214 


STKQOU 


020616 


SBPl 


006526 




000004 


WRLO 


012242 


8LPADR 


001 106 


8TKQSR 


020620 


SBP2 


006SS2 


SW3 ^ 


OOOOlO 


WPLOl 


012236 


$LPERR 


001110 


8TKS 


001 144 


SBP3 


007224 


SW4 ^ 


000020 


WRTCHK 


011116 


8 M N E W 


021745 


8TKSRV 


020672 


SECPTP 


01042s 


SWf ® 


Q00040 


WWRDCN 


001444 


8MSWR 


021734 


Sf N s 


000013 


SFfCMp 


01 it66 


swg ® 


OOOIOO 


XHE 


011442 


8 MUL s 


000003 


8TNPWR 


022616 


SIAD 


00iS42 


SW7 ^ 


©00200 


XXDPMD 


001220 


8MULT 


020500 


8TPB 


001 152 


SIZEf 


0242S0 


SW@ m 


000400 


S&UTOB 


001134 


8 NULL 


001154 


$TPFLG 


001157 


SKOON 


015S52 


SW9 s 


oosooo 


SBDADR 


001122 


SNhTSTs 


OOOOOI 


$TPS 


001150 


SMGHP 


014472 


TBIf ?Es 


000014 


$BDDAT 


001126 


80CNT 


022302 


STRAP 


022702 


SOAD 


001524 


TIMDOM 


014050 


IBELL 


001206 


80M0DE 


022304 


8TRAP2 


022724 


SORT 


013342 


TIMER 


001264 


ICHARC 


020474 


SOVER 


017146 


8TRP s 


000025 


SPl 


012702 


f IMSEK 


Olt776 


SCKSWR 


021064 


8PASS 


001100 


8TRPAD 


022736 


SPIO 


012724 


fKVEC ® 


000060 


8CMTAG 


001100 


8P0WER 


023162 


gTSTNM 


001102 


SPll 


012726 


TPVEC ^ 


000064 


SCMl s 


000011 


SPWRAD 


023150 


STTYIN 


021712 


SP12 


012730 


IRItPVE^ 


000034 


|Cf«l2 s 


000022 


8PWRDN 


023010 


ITYPDS 


020034 


SP2 


012704 


TRTVSC® 


000014 


ICM3 3S 


000011 


$PWRMG 


023144 


STYPE 


020260 


SPl 


OI27O6 


TSTRWS 


016716 


ICNTLG 


021727 


8PWRUP 


023062 


8f YPEC 


020430 


SP4 


0t27l0 




104422 


SCNTLU 


021722 


8 OUES 


001212 


STYPEX 


020476 


SP5 


012712 


TSTl 


004260 


SCRLF 


001213 


8RDCHP 


021366 


8TYP0C 


022104 


SP6 


012714 




012174 


IDBLH 


020250 


S RDL I N 




8 TYPON 


02 2120 


SP7 


0127S6 


TSTll 


01273S 


IDBSD 


022506 


8RD0CT 


021756 


8TYPQS 


022060 


§F8 


012720 




01S224 


SDECVL 


022666 


8RDSZ s 


OOOOlO 


8XTSTR 


017030 


SP9 


012722 


TST2 


004624 


$DOAGN 


015340 


8REGAD 


001160 


88GET48 


000000 


STACK ® 


001100 


TST3 


00S122 


IDTBL 


020240 


8REG0 


001162 


80FILL 


022303 


START 


002462 


TST4 


00S6I2 


lENDAD 


015330 


8REG1 


001164 




034446 


ST ABTA 


002530 


TST5 


006620 


iENDCT 


015276 


8REG10 


001202 






STARTl 


003074 


TST6 


O073S6 


lENDMG 


015347 


§REG2 


001166 







g ABSs 034446 000 



ERRORS DETECfEDl 
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RUN^'TlHEs IS 2i SECONDS 
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